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1.0 GENERAL INFORMATION 


1.1 PROGRAM ABSTRACT 


This program will format any disk drive connected to a UDA-50 disk 
controller. There are three ways to format a disk with this program: 


1. Reformat - Format the disk with the bad sector information that was 
hte gy — disk at the factory. This is the normal way to 
ormat a disk. 


2. Reconstruct = Format the disk without — any bad sector = 
information. This should be used only when the bad sector information 
has been destroyed or for some reason can no longer be read from the 
disk. This method may also be specified in the disk drive's maintenance 
manual for special cases (eg. changing an RM/RA80 spare HDA from RM80 
format to RA&( format. 


3. Restore - Format the disk using td sector information obtained frum 
a disk file on the XXDP+ system load device. This method is provided 
for use by manufacturing. No files are provided, nor any method of 
obtaining the files, at this time. 


The format egeration is performed by a Diagiostic Utilities and 
Protocol (DUP) program loaded into the UDA=30 disk controller. The 
host program simply downline loads the DUP program in the UDA-50 and 
monitors its execution. The DUP program sbtains parameters from the 
host program (eg. drive number and format mode) and requests the host 
program to print error and oe | messages. The DUP program is also 
commonly called a ‘‘diagnostic machine’’ (DM) program. 


This program can only format in one mode at a time. In RESTORE mode, 
only one disk may be selected in the hardware questions or an error 
message will result and the program will stop. 


In REFORMAT and RECONSTRUCT modes, any sumber of disk drives may be 
selected. A UDA-50 can only format one disk at a time, so each disk on 
a UDA-50 will be selected sequent tasty If the disk drives to be 
formatted are connected to different UDA-50s, all UDA-50s will be run 
simultaneously. For example, lets assume three units are selected for 
ornate tog in the hardware questions, units 1 and 2 are connected to 
one UDA-50 and unit 3 is connected to a different UDA-50 (Unibus 
addresses are different). This program will guionet ical ly start 
simultaneous format operations on units 1 and 5. When unit 1 finishes 
(or errors), unit 2 will be started. After units 2 and 3 are finished, 
the program stops. 


This program will stop after each pass (all units formatted once). 
There is no need to specify a PASS switch on the command Line to the 
Diagnostic Runtime Services (eg. START/PASS:1). 
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Special pruvisions have been made to allow this program to run under 
an APT te in manufacturing. This system does not allow questions 
to be asked of an operator. Such a condition also exists under XXDP+ 
when the UAM ae is set. In this condition, only reformat mode can be 
selected. Select ng RECONSTRUCT or RESiORE will result in an error. 
Also, a date of 1-JAN-70 will be written on the disk. 


1.2 SYSTEM REQUIREMENTS 


This program was designed using the PDP-11 Diagnostic Runtime Services 
revision C. Run time environments are determined by the Runtime 
Services and may change as new versions of the Services are developed. 
The initial version will require the following: 


PDP-11 Unibus processer 

28K words of memory (minimum) 

Console terminal 

XXDP+ load media containing this program 

One or more UDA-50 subsystems 

XXDP+ wont engi containing this program and the ZUDGA0.PAK 
ata e. 


A system clock = either type L or P = will be used to time 
the DUP program and report runtime, if available. If no system clock 
is available, this program cannot detect a hung DUP program. 


The diagnostic program requires that the data file ZUDGAO.PAK be on 
the XXDP+ proree device. This data file is ordered under the name 
CZUDEBO0. The XXDP+ system device must remain on-line during the 
execution of the this diagnostic. 


2.0 OPERATING INSTRUCTIONS 


This section contains a brief description of the Runtime Services. For 
detailed information, refer to the XXDP+ User's Manual (CHQUS). 


2.1 COMMANDS 


There are eleven legal commands for the Diagnostic Runtime Services 
(Supervisor). This section lists the commands and gives a very brief 
description of them. The XXDP+ User's Manual has more details. 


COMMAND EFFECT 

START Start the diagnostic from an initial state 
RESTART Start the diagnostic without east tos 12198 
CONTINUE Continue at test that was interrupted (after °C) 
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PROCEED Continue from an error halt 
EXIT 


Return to XXDP+ Monitor (XXDP+ OPERATION ONLY!) 
ADD Activate a unit for testing (all units are 

cone iaeres to be active at start time 
DROP Deactivate a unit 
PRINT Print statistical information (see section 4.0) 
pis ar Type a list of all device information 
FLAGS Type the state of all flags (see section 2.3) 
ZFLAGS Clear all flags (see section 2.3) 


A command can be recognized by the first, pores.  aeaiiaaie ini So you 
may, for example, type ‘‘STA’’ instead of ‘'STAR 


2.2 SWITCHES 


There are several switches which are used to modify supervisor 

ag oder These switches are appended to the legal commands. ALI of 
e legal switches are tabulated below with a brief description of 

nace n the descriptions below, a decimal number is designated by 


SWITCH EFFECT 
/TESTS:LIST Execute ony those tests specified in 
the list. ist is a gtr of test 
numbers, for example - /TESTS:1:5:7-10. 
This List will cause tests 1,5,7,8,9,10 to 
be run. ALL other tests will not be run. 
/PASS:DDDDD Execute DDDDD passes (DDDDD = 1 to 64000) 
/FLAGS:FLGS Set specified flags. Flags are described 
in section 2.3. 
/EOP : DDDDD ~ ork end of pass wit e after ever 
O pecsee oye DDD = 1 to 64000) 
/UNITS:LIST PESTA D/DROP only Baie units spec tT 1¢¢ 
in the List. List example - /UNITS:0:5:10-12 
use units 0,5, 40° 11,12 (unit numbers = 0-63). 


Example of switch usage: 
START/TESTS: 1-5/PASS: 1000/E0P: 100 


The effect of this command will be: 1) tests 1 through 5 will be 

executed, 2) all units will tested 1000 times and 3) the end of pass 

messages will be printed after each 100 passes only. A switch can be 

recognized by the first three characters. You may, for example, type 
1-5"" instead of *‘/TESTS:1-5"". 


Below is a table that specifies which switches can be used by each 
command. 
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TESTS PASS FLAGS EOP UNITS 


START Xx Xx x x 
RESTART X xX x 


<x ot 
Pd 


Xx 
x 


NT ; 
DISPLAY Xx 
FL 


2.3 FLAGS 


Flags are used to set up certain operational parameters such as 
looping on error. All flags are cleared at startup and remain cleared 
until explicitly set using the flags switch. Flags are also cleared 
after a START or RESTART command unless set using the flag switch. 

The ZFLAGS command om also be used to clear all flags. With the 
exception of the START, RESTART and ZFLAGS commands, no commands 
affect the state of the flags; they remain set or cleared as 
specified by the last flag switch. 


FLAG EFFECT 

HOE Halt on error = control is returned to 
runtime services command mode 

LOE Loop on error 

IER* Inhibit all error reports 

IBE* Inhibit all error peperse except 
first level (first level contains 


error type, number, PC, test and unit) 


IXE* Inhibit extended error reports (those 
called by PRINTX macro's) 

PRI Direct messages to line printer 

PNT Print test number as test executes 

BOE BELL** on error ; 

UAM Unattended mode (no manual intervention) 

IDU Inhibit gregres dropping of units 

LOT Loop on tes 


*Error messages are described in section 3.1 


See the XXDP+ User’s Manual for more details on flags. You may 
specify more than one flag with the FLAG switch. For example, to 
cause the program to loop on error, inhibit error reports and type a 
BELL’* on error, you may use the following string: 


/FLAGS: LOE: IER: BOE 


SEQ 0006 


— se e+ 
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2.4 HARDWARE QUESTIONS 


When a diagnostic is STARTed, the Runtime Services will oa": the 
user for hardware information by typing ‘CHANGE HW (L) ?°" . When you 
answer this question with a ‘'Y"’, the Runtime Services will ask for the 
number of units (in decimal). You will then be asked the following 
questions for each unit. When you answer this question with an ‘N'’, 
the Runtime Services will use the answers built into the program by 
the SETUP bid (see chapter 6 of the XXDP+ User's Manual). If you 
have never run the SETUP utility on this program file, the-default 
values Listed below (just before the question mark) will be used. 


UNIBUS ADDRESS OF UDA (0) 172150 ? 


Answer with the address of the UDAIP register of one UDA as 
addressed by the processor with memory management turned off 
(7 58342" even 16-bit address in the range of 160000 to 


VECTOR (0) 154 ? 


Answer with the interrupt vector address of the UDA. A vector 
address in the range of 4 to 774 may be specified. The UDA 
does not have a vector "‘hard wired’’ to it, so any vector not 
being used by this program and XXDP+ may be used. 


BR LEVEL (D) 5 ? 


Answer with the interrupt priority used by the UDA. Levels 4 
to 7 are accepted. This level must match the level ‘‘hard 


wired’’ in the UDA by the priority plug. 
UNIBUS BURST RATE (D) 63 ? 


The UDA allows the ability to control the maximum number of 
words transferred across the UNIBUS each time the UDA becomes 
master. The default answer of 63 will allow for the fastest 
execution of this diagnostic program. You may answer with the 
value your operating system uses or use zero which will tell 
the UDA to supply a value that should work on any system. A 
decimal number in the range of 0 to 63 may be specified and 
all values should work on any system. A larger value will 
allow for a faster running prograa. The value will be passed 
directly to the UDA during initialization. 


DRIVE NUMBER (D) 0 ? 


Answer with the drive number of the drive you wish to test. 
This is the number which appears on the “‘unit plug’ on the | 
front of the disk drive. On a multi-unit drive, each sub-unit 
number on the drive must be tested as a separate unit to 
completely test the drive. A maximum of eight logical drives 
may be tested on one UDA at a time (UDA configuration Limit). 
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2.5 SOFTWARE QUESTIONS 


arret de u have answered the hardware questions or after a RESTART or 
CONTINUE command, the Runtime Services will ask for software 
parameters. You will be prompted by ‘ "CHANGE SW (L) ?°' If you wish to 
ee any parameters, answer by typing ‘‘Y’’. The software questions 
and the default values are described in the next paragraphs. You may 
change the default values with the SETUP utility. 


REFORMAT USING EXISTING BAD SECTOR INFORMATION (L) Y ? 


If this question is answered ‘'YES'’, then the user wants the 
REFORMAT mode format operation. REFORMAT mode will use the 
bad sector information that is already on the disk. Any 
other mode mits Peeerey this information. If this question 
is answered ‘'NO’', the following will be. asked to be sure the 
user knows what he is doing. 


Se ecearion ix tat INFORMATION WILL DESTROY THE FACTORY BAD SECTOR 
AGAIN = REFORMAT USING EXISTING BAD SECTOR INFORMATION (L) Y ? 


This is asked to verify that the user does want to destroy 
the bad sector information on the disk and run another 

format mode. If this is answered ‘YES'’, then the user wants 
the REFORMAT mode format operation and use the exist a 

bad block information. If again answered ‘‘NO"', the following 
question will be asked. 


RECONSTRUCT BAD SECTOR INFORMATION (L) Y ? 


A *'YES'® answer will cause a reconstruct mode format 
a Aig If answered ‘'NO’’, the following will be asked 
to verify the user really wants the restore mode format. 


DO YOU HAVE A FILE ON THE SYSTEM LOAD peyece 
CONTAINING BAD SECTOR INFORMATION (L) N 


Note that such a file will not be orev teed with the diagnostic 
and this onde. is not recommended. The format will begin 
only on a answer. Otherwise ihe following message 
will be Somme and the program will abort. 


YOU CANNOT PROCEED WITHOUT SUCH A FILE. 
RESTART PROGRAM AND SELECT TO REFORMAT OR RECONSTRUCT DISK. 


SEQ 0008 
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2.6 MANUAL INTERVENTION QUESTIONS 


Once the progres is started, the date will be asked for in the format 
used by the XXDP+ system. 


ENTER DATE AS DD-MMM-YY (A) 1=JAN-70 ? 


The default is provided so the user need not supply the date. 
The date question will Whe only be asked one time. If an 
improper answer is typed, "INPUT ERROR’ is printed and the 
question is asked again. A two or four digit year may be 
Fyoed. A_four digit year must be 1900 or arene? (eg. 
14-APR-1982). If only two digits are typed, the year is 
determined as follows: 


1. If the number typed is 70 or greater, a 19 is pretixed. 
Eg.. 1-JAN-70 translates to year 1976 and 25-DEC-99 
translates to year 1999. 


2. If the number typed is less than 70, a 20 is prefixed. Eg., 
1-APR-21 is translated to year 2021. 


If RECONSTRUCT mode is selected, the followng question will be asked 
for each disk of be formatted before the format operation begins. 


rit NUMBER FOR UNIT xx UDA AT xxxxxx DRIVE xxx 


A decimal number in the renge of 0 to 18446744073709551615 
must be entered (no default). 


If RESTORE mode is selected, the following question will be asked. 


NAME OF FILE CONTAINING BAD SECTOR INFORMATION FOR 
DISK TO BE FORMATTED (A) ? 


If the file named does not exist on the system load device, 
the program will abort back to the XXDP+ prompt after printing 
an error message. 


2.7 EXTENDED P-TABLE DIALOGUE 


When you answer the hardware questions, you are building entries in a 
table that describes the devices under test. The simplest way to 
build this table is to answer all questions for each unit to be 
tested. If you have a multiplexed device such as a mass storage 
controller with several drives or a communication device with several 
lines, this becomes t dious since most of the answers are repetitious. 
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To illustrate a more efficient method, suppose you are testing a 
fictional device, the XY11. Suppose this device consists of a control 
module with eight units (sub-devices) attached to it. These units are 
described by the octal numbers > careug 7. There is one hardware 
arameter that can vary among units called the Q-factor. This 
-factor may be 0 or 1. Below is a simple way to build a table for 
one XY11 with eight units. 


# UNITS (D) ? 8<CR> 


UNIT 1 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?. O<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 2 
CSR ADDRESS (0) ?_ 160000<CR> 
SUB=DEVICE # (0) ? 1<CR> 
Q-FACTOR (0) 1? O<CR> 


UNIT 3 
CSR ADDRESS (0) ?_ 160000<CR> 
SUB-DEVICE # (0) ? 2<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 4 
CSR ADDRESS (0) ?_ 160000<CR> 
SUB-DEVICE # (0) ? 3<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 5 
CSR ADDRESS (0) ?_ 160000<CR> 
SUB-DEVICE # (0) ? 4<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 6 
CSR ADDRESS (0) ?_ 160000<CR> 
SUB-DEVICE # (0) ? 5<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 7 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?. 6<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 8 
CSR ADDRESS (0) 160000<CR> 
SUB-DEVICE # (0) ? 7<CR> 
Q-FACTOR (9) 1? <CR> 


Notice that the default value for the Q-factor changes when a | 
nonce foult response is given. Be careful when specifying multiple 
units! 


As you can see from the above example, the hardware parameters do not 
vary sient ficently from unit to unit. The procedure shown is not very 
efficient. 
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The Runtime Services can take multiple unit specifications however. 
Let's build the same table using the multiple specification feature. 


# UNITS (D) ? 8<CR> 


UNIT 1 
CSR ADDRESS (0) ? 160000<CR> 
SUB=DEVICE # (0) ?. 0,1<CR> 


) 
Q-FACTOR (0) 0? 1,0<CR> 


UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?_ 2=5<CR> 
Q-FACTOR (0) 0 ? O<CR> 


UNIT 7 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?. 6,7<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


As you can see in the above dialogue, the runtime services will build 
as many entries as it can with the information given in any one pass 
through the questions. In the first pass, two entries are built since 
two sub-devices and q-factors were specified. The Services assume 
that the CSR address is 160000 for both since it was specified only 
once. In the second pass, four entries were built. This is because 
four sub-devices were specified. The ‘="" construct tells the Runtime 
Services to increment the data from the first number to the second. 
In this case, sub-devices 2, 3, 4 and 5 were specified. (If the 
sub-device were specified by addresses, the increment would be by 2 
since addresses must be on an even boundary.) The CSR addresses and 
Q-factors for the four entries are assumed to be 160000 and 0 : 
respectively since ener were only specified once. The last two units 
are specified in the third pass. 


ne whole process could have been accomplished in one pass as shown 
elow. 


# UNITS (D) ? 8<CR> 

UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?. O=7<CR> 
Q-FACTOR (0) 0 ? 0,1,0,,,.1,1<CR> 


bs you con see from this example, null replies (commas enclosing a 
null field) tell the Runtime Services to repeat the last reply. 


SEQ 0011 
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DR>STA 


Ee 
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2.8 QUICK START-UP PROCEDURE 


To start-up this program: 


Boot XXDP+ 


Give the date and answer the LSI and SOHZ (if there 
is a clock) questions 


Type *'R ZUDEBO"’ 

Type ‘‘START"’ 

Answer the ‘CHANGE HW'* question with “‘y’’ 
Answer all the hardware questions 

Answer the ‘‘CHANGE SW'* question with ‘'N’’ 


When you follow this procedure you will be using only the defaults for 
flags ne sersers arameters. These defaults are described in 
sections _ = 


Sample of terminal dialogue to test two disks on one UDA-50: 


CHANGE HW (L) ? Y 
# UNITS (D) 


?2 


UNIT 0 

UNIBUS ADDRESS oF UDA (0) 172150 ? 
VECTOR (0) 154 ? 

BR LEVEL (D) 5 ? 

UNIBUS BURST RATE (D) 63 ? 

DRIVE NUMBER (D) 0 ? 0,1 


CHANGE SW (L) ?N 


SEQ 0012 
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ENTER DATE AS DD-MMM-YY (A) 1-JAN=76 ? 14-APR-82 


UNIT 0 UDA AT 172150 DRIVE 0 RUNTIME 0:12:20 
Format completed “ 
2 Revectored LBNS 
2 Primary revectored LBNS 
Secondary/tertiary revectored LBNS 
Bad blocks in the RCT area due to data errors 
0 Bad blocks in the DBN area due to data errors 
0 Bad blocks in the XBN area due to data errors 
2 Blocks 8 By eo on the check pass 
FCT used succes 
UNIT 1 UDA AT 135450" DRIVE 1 RUNTIME 0:25:18 
Eormat completed 
6 Revectored LBAS 
5 Primary revectored LBNS 
1 Secondary/tertiary revectored LBNS 
¢ Bad blocks in the RCT area due to data errors 
( Bad blocks in the DBN area due to data errors 
f, Bad blocks in the XBN area due to data errors 
4 Blocks retried on the check pass 
FCT used  susegeenn ty 


CZUDE EOP 
0 CUMULATIVE ERRORS 
DR> 


oo 


Sample of terminal dialogue going through software questions. 


Onty one disk is being teste 
DR>STA 

CHANGE HW (L) ? N 

CHANGE SW (L) ? Y 


REFORMAT USING EXISTING BAD SECTOR INFORMATION (L) Y ? Y 


ENTER DATA AS DD-MMM-YY (A) 1=-JAN-70 ? 14-APR-82 


RUNTIME 0:12:45 

Format completed 
2 Revectored LBNS 
2 Primary revectored LBNS 
0 Secondary/tertiary revectored L8NS 
0 Bad blocks in the RCT area due to data errors 
0 Bad blocks in the DBN area due to data errors 
0 Bad blocks in the XBN area que to data errors 
2 Blocks retried on the check pass 

FCT used ¢ successful 


CZUDE EOP 
,? CUMULATIVE ERRORS 


SEQ 0013 
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3.0 ERROR iNFORMATION 


3.1 TYPES OF ERROR MESSAGES 


There are three levels of error messages that may be issued by a 
diagnostic: general, basic and extended. General error messages are 
always printed unless the "IER'’ flag is set (section 2.3). The general 
error message is of the form: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXX 
error message 


where: NAME = diagnostic name 
TYPE = error type (SYS FTL ERR, DEV FTL ERR) 
NUMBER = error number — 
UNIT NUMBER = 0 - N (N is Last unit in PTABLE) 
TST NUMBER = test and subtest where error occurred 
PC:XXXXXX = address of error message call 


System fatal errors (SYS FTL ERR) are used to report errors that are 
fatal to the entire diagnostic program. The diagnostic stops and the 
Runtime Services prompt is printed. 


Device fatal errors (DVC FTL ERR) are used to report errors that are 
fatal to the device (may be either a UDA-50 or disk drive). Testing 
stops on that device for the remainder of the current test. 


Basic error messages are messages that contain some additional 
information about the error. These are always printed unless the 
“1ER"’ or ““IBE"’ flags are set (section 2.3). These messages are 
printed after the associated general message. 


Extended error messages contain supplementary error information such 
as register, contents or gocd/bad data. These are always printed 
unless the "IER", “IBE’’ or “‘IXE flags are set (section 2.3). These 
messages are printed after the associated general error message and 
any associated basic error messages. 


The general and basic error sosneges from this diagnostic are always 
ene line each. The basic message defines what program detected the 
error, the UDA-50 being used and the time of the error: 


HOST PROGRAM UDA AT xxxxxx RUNTIME hhh:mm:ss 
The host progres (PDP-11) detected the error. UDA AT xxxxx 


identifies the address of the UDA-50 being tested. It may be 
omitted if the error is not specific to one UDA-50. 


SEQ 0014 





+ - 
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Sample errur message: 


oa DVC FTL ERR art 1 +4 7 00 TST 9} SUB 000 PC: xxxxxx - goneret message 
T PROGRAM UDA 17215 UNTIME 0:00:12 - basic message 
UDA RESIDENT DIAGNOSTICS DETECTED FAILURE \ 
UDASA CONTAINS 104041 i= extended message 
REPLACE UDA MODULE M7161 / 


The DUP program may also ay error messages. =e are printed 
enectiy as presented by the DUP program and cannot be suppressed by 
any flags. 


3.2 SPECIFIC ERROR MESSAGES 


3.2.1 HOST PROGRAM ERROR MESSAGES 


J pene is a list of error messages that may be printed by the 
diagnostic program. In the List, some of the numbers that may vary 
with execution or program version are shown as ‘‘xxx''. These include 
program counters and runtime. Other numbers, such as unit number, 
drive number, UDA-50 address and data in registers are filled with 
sample numbers. Additional information about the error may follow the 
error message. 


00001 coe SYS FTL ERR 00001 ON UNIT 00 TST a — 000 PC: xxxxxx 
OST PROGRAM UDA AT 1 172150 RUNTIME x 
1 DON’ T LIKE THE ANSWERS YOU GAVE TO THE * HARDWARE QUESTIONS 
UDA HAS MORE THAN ONE VECTOR, BR LEVEL OR BURST RATE 


When the hardware questions were answered, two units were 
selected with the same UNIBUS address oy with a different 
vector, BR level or burst rate. A single UDA-50 can have only 
one vector, BR level or burst rate. The program is aborted ond 
returns to the Runtime Services prompt so that you can change 
the hardware questions. 


00002 CZUDE SYS FTL ERR 00002 ON UNIT 00 TST ha 8 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME x 
1 DON'T LIKE THE ANSWERS YOU GAVE TO THE * HARDWARE QUESTIONS 
TWO UNITS SELECT THE SAME DRIVE 


The hardware questions for two units were exactly the same. 
The program is aborted and returns to the Runtime Services 
prompt so that you can change the hardware questions. 
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00003 CZLDE SYS FTL ERR 00003 ON UNIT 00 TST 001 SUB 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME x:xx:xx 
I DON'T LIKE THE ANSWERS YOU GAVE TO THE HARDWARE QUESTIONS 
MORE THAN EIGHT DRIVES SELECTED ON THIS UDA 


Up to four gn toe disk drives can be attached to a UDA-50 at 
one time. A physical disk drive may be from one to four 
Logical disk drives. Each logical disk drive is considered one 
unit to the espe program. Even though more than Wire 
logical disk drives can be attached to one UDA-50, the UDA-50 
only supports eight. The program is aborted and returns to the 
a Services prompt so that you can change the hardware 
questions. 


00004 CZUDE SYS FTL ERR 00004 ON UNIT 00 TST 001 SUB 000 PC: xxxxxx 
HOST PROGRAM RUNTIME x:xx:xx 
NOT ENOUGH ROOM IN MEMORY TO TEST THE UNITS SELECTED 
PLEASE START PROGRAM OVER AND TEST FEWER UNITS AT A TIME 


This program does not Limit the number of units that can 
be teste . specifying a maximum number. What Limits 
the number is the amount of memory used to store data 

on each unit. You have exceeded the number of units 

that are testable at one time. Start program over and 
select fewer units. 


00008 CZUDE SYS FTL ERR 00008 ON UNIT 00 TST 001 SUB 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME x:xx:xx 
I *T LIKE THE ANSWERS YOU GAVE TO THE HARDWARE QUESTIONS 
TWO UDA‘S USE THE SAME VECTOR 


The hardware questions for two units specified different 
UDA-50 Unibus addresses but identical vector addresses. The 
program is aborted and returns to the Runtime Services prompt 
so that you can change the hardware questions. 


00009 CZUDE DVC FTL ERR 00009 ON UNIT 00 TST 001 SUB 000 PC: xxxxxx 
HOST PROGRAM RUNTIME x:xx:xx 
ONLY ONE DISK CAN BE SELECTED IN HW QUESTIONS IN RESTORE MODE. 
PLEASE START PROGRAM OVER AND SELECT ONLY ONE DISK. 


If the operator chooses to run the formatter in RESTORE 

mode, then only one disk can be selected in the hardware 
questions. RESTORE mode is run in this way because 

a file containing the bad block information is used and 

that information matches only one drive. 


00010 CZUDE DVC FTL ERR 00010 ON UNIT 00 TST 001 SUB 000 PC: xxxxxx 
HOST PROGRAM RUNTIME x:xx:xx 
THIS PROGRAM CAN ONLY REFORMAT A DISK IN UNATTENDED MODE 


This program needs to ask questions of the operator. It 
refuses to run in RECONSTRUCT and RESTORE modes because the 
questions obtain data that is absolutely necessary. REFORMAT 
mode is allowed to run because only a date is needed. The 
default date of 1-JAN-70 is used. 
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00011 


00020 


0 TST 001 SUB 000 PC: xxxxxx 
ot 


2 DVC FTL ERR ayy ON UNIT ; 
XXIXX 
TH THIS CONTROLLER. 


OST PROGRAM UDA 172150 RUN 
URONG APT PORMATTER. IS BEING USE 
USE CIUDx. 


There are two APT + atible formatters. CIUDK is used 

for UDA-50s wise § 7161-2 modules. CIUDI is used for 
UDA=50s with the i ofesce modules. If one formatter program 
is used with the wrong UDA-50 module set, this error will 
greets Use the other APT formatter program to successfully 
ormat. 


CZUDE DVC FTL ERR 00020 ON UNIT 00 TST 001 SUB 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME x:xx:xx 

MEMORY ERROR TRYING TO READ UDA REGISTERS 

CHECK UNIBUS SELECTION SWITCHES ON UDA MODULE M7161 OR M7485 


OR UNISUS 
OR REPLACE UDA MODULE M7161 OR M7485 


A non-existant re error occurred when the host ; egre 
tried to access the UDAIP and UDASA registers. 

is at another address (check the UNIBU akin  deaeel 
or module M7161 is broken or the UNIBUS is broken. 


o~- 


en ee ee. ite 
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00021 


ee eh a DB a a a at a st SS SSD 


will not 


1040 


er ome FTL ERR o00¢1 oN UNIT 00 TST 901 = 000 PC: 
PROGRAM UDA AT 172150 

UDA "RESIDENT DIAGNOSTICS DETECTED FAIL 
ASA CONTAIN 5 


UDAS AINS 1 
REPLACE UDA MODULE M7162 OR M7486 
The UDA Resident diagnostic detected a 


error is displayed in the UDASA. 
error values and their meaning: 


00 - 


SOfwnNvuyvno 


SOoousiwon-unn— 
¢ 


Replace the board s ac ified. 
interface boards. 
Module M71€é1 only works ine the module M7182. 
modu! es yo 2 and M7486. 
wor 
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KXXXXX 
RUNTIME x . "3x 


failure. The 
here are the possible 


Fatal sequncer error 
D processor ALU error 
D proc ROM parity error 
D proc with no Board #2 or RAM parity error 
D proc RAM buffer error 
D proc SDI error 
D proc write mode wrap SERDES error 
D proc read mode SERDES, RSGEN, and ECC error 
U proc ALU error 
U proc ceneres Register error 
U proc DFAIL/ROM ph error/Board #1 test count is wrong 
U proc Constant ROM error with D proc running SDI test 
Unexpectant trap found, aborted diagnostic 
U proc ROM error 
U proc ROM parity error 
ae 1 data error (MSB not set) 
U proc RAM pocity error 
U proc uffer error 
Board #2 test count was wrong 
Step 2 error 
NPR error 
Step 3 error 
Step 4 error 


M7161 and M7485 are the Unibus 
7162 and M7486 are the SDI interface boards. 
The same for 
Do not intermix the two boards. It 


SEQ 0018 
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00022 A DVC FTL ERR 00022 ON UNIT 00 TST Baa bs 000 PC: xxxxxx 
OST PROGRAM a AT 172150 RUNTIME x 
St oH BIT CID NOT SET IN UDASA REGISTER ‘DURING INITIALIZATION 
STEP BIT EXPECTED 004000 
UDASA CONTAINS 000000 
REPLACE UDA MODULE M7161 OR M7485 


The UDA did not respond as expected during the 

initialization sequence which communicates ede data 
in the UDASA register. A normal response from the UDA 
contains either a STEP bit or an ERROR bit defined as 


follows: 
100000) eer Oe 





™m 

o 

i=] 

So 

~~ 

nn 

oo 

® 

oS 
row 
ooo 
ie mts mtn me 
evect ct ct 


The expected 
expected time. 


00023 CZUDE DVC FTL ERR 00023 ON UNIT 00 TST ao — 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME x: 

UDA DID NOT CLEAR RING STRUCTURE IN HOST "MEMORY rtvt hay INITIALIZATION 

6 WORDS WERE TO BE CL af Bab ie AT ADDRESS 040644 

FIRST SEVERAL WORDS NOT CLEARED (UP TO 6): 
ADDRESS CONTENTS 
040644 000010 
040650 000010 


040652 000010 
REPLACE UDA MODULE M7161 OR M7485 


The UDA is to clear the — structure (a communications area 

used by the yor fe talk to the host) in host memory before 

Step 4 of initialization. If the UDA diagnostics did not 
clear memory and did not flag an error, then error message 

00023 is dig 42 ed. The contents of each word in memory 

is set to 177777 before the test. Failure of the UDA 

to clear each ae indicates a fault in the address 

interface to the Unibus. 


00024 CZUDE DVC 4c ERR 00024 ON UNIT 00 TST ot aes 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME x 
UDASA REGISTER DID NOT GO TO ZERO AFTER. STEP 3 WRITE OF INITIALIZATION 
PURGE/POLE DIAGNOSTICS WERE REQUESTED 
UDASA CONTENTS 004400 


For better testing, the host can test the PURGE and POLE 
mechanism of the UDA. To do so the host sets bit15 of the 
step 3 data and sends the data to the UDA. The a must 
go to zero and wait for the purge and pole. If the UDA 
never went to zero, then error message 00024 is a ‘splayed. 
The UDA mer have a bad M7161 module or M7485 mo 

or the UNIBUS may be broken. 


— eC ea oe 0 ee ee oe  S- 


— 
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00025 hae att FTL ERR 00025 ON UNIT 00 TST hn. * 000 PC: xxxxxx 
PROGRAM UDA AT 172150 RUNTIME x 
UDA i NOT RETURN CORRECT DATA IN UDASA "REGISTER DURING INITIALIZATION 
Rta EXPECTED 004400 
UDASA CONTAINS 004000 
REPLACE UDA MODULE M7161 OR M7485 


For soe step of initialization, ope tte data is expected 
to be displayed in the UDASA. If the UDASA does not match 
the expected data, then error message 00025 is displayed. 
Replace UDA module M7161 or M7485. 


00030 CZUDE DVC FIL ERR af0s8 ON UNIT 00 TST ~~ 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME x 
UDA REPORTED FATAL ERROR IN UDASA REGISTER “UHILE RUNNING DM PROGRAM 
UDASA CONTAINS 100004 


A message from the UDA firmware reports = unexpected 
failure. An error code is presented in the UDASA. 
Here is a List of the codes and their meanings: 


004400 - oe has been inited AG either a bus ‘nit or by 
ting into the U 
100001 - UNIBUS Bonn hoy Ee read error (parity or timeout) 
100002 = UNIBUS envelope/packet write error (parity or timeout) 
100003 = UDA ROM and RAM parity error 
100004 = UDA RAM parity error 
00005 = UDA ROM parity error 
0006 - UNIBUS ring read error 
007 = UNIBUS ring write error 
010 = UNIBUS interrupt master failure 
ae - Host access timeout error 
1g - Host exceeded credit Limit 
073 = UDA SDI hardware fatal error 
014 = DM XFC fatal error 
015 = Hardware timeout of instruction loop 
016 = Invalid virtual circuit identifier 
0017 - Interrupt write error on UNIBUS 


00031 CZUDE a FTL ERR 060031 ON UNIT 00 TST et 28 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME x 
NO INTERRUPT RECEIVED FROM DM PROGRAM FOR 3 MINUTES 
ASSUME PROGRAM IS HUNG 


ALL DM programs are required to communicate with the 
host program; so as to assure the host orogens that 

the D progres is not hung up or in an endless loop. 
If the DM program has not done so, the host program 

assumes the DM is hung and this message appears. 


0 
00 
00 
000 
000 
00 
00 
00 
oc 
0 


eb a SS HS 
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00032 aT PRncR nae cea at 00056 $195 OR UNIT me — Bae 000 PC: xxxxxx 
MESSAGE BUFFER RECEIVED. “FROM om PROGRAM wiTH UNKNOWN REQUEST NUMBER 


MESSAGE BUFFER CONTA 
ssid 000002 5500008. “900006 000005 00 000007 
000008 000009 44h 000011 000012 000015 000014 
$0001 4d 000017 000018 000019 000020 std 
000022 00002 alt 000025 pn obes a a oOoee 
000029 0000350 000031 000032 0000 000035 


The DM program and the host program communicate with 
each other using ay ay Each packet must have a 
request number set up by the DM program and interpreted 
by the host program. This request number is not a 

known request number. The problem may be the UNIBUS 

or either one of the UDA modules or a corrupted DM 
program. Word 1 contains the DM request number, and 
word 2 typically contains the drive number. The rest 
of the buffer contains information specific to a 

DM request. The numbers in the example show 

the order in which words are displayed. 


00033 CZUDE DVC FTL ERR 00033 ON UNIT 00 TST Ro ~ 000 PC: xxxxxx 
00034 HOST PROGRAM UDA AT 172150 RUNTIME x 

RESPONSE PACKET FROM UDA DOES NOT CONTAIN * EXPECTED DATA 

at oo aceer ear STATUS OR PACKET WAS NOT RECEIVED CORRECTLY 


ACKET SEN 
000000 000020 
000000 000000 
000000 000002 
000000 014336 
000000 034674 
000000 000000 
000000 000000 
000000 051232 


000000 000000 


The host proares i 


given b 


error ~Fy one of 


The response pac 
the following points: 


RESPONSE PACKET RECEIVED 
00000 000020 


00000 0 
000000 000202 
000000 014336 
000000 034674 
000000 000000 

00000 


006000 051232 
000000 000000 
000000 000000 


000000 000000 
000000 000000 


nspected the voopanse packet which was 
et may have been in 


1) The end code was not as expected. 


2) The status code showed an error occurred with the 


last command. 
3) The command reference numbers (the first word) did 
not match. 


If 1 or 3 occurred, there aA have been a transmission 
problem between the UDA and the host program. If 2 occurred, 
check the error code in the mScP specification for further 
information. The packets are displayed two ,60n9 words 

per Line, low order word and byte to the ri gnt 

(corresponding to the MSCP long-word entity 
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00036 


00037 


00100 


00101 
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CZLDE OVC FTL ERR 00038 ON UNIT 00 ~ ae 5 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUN 

NO INTERRUPT RECEIVED FROM UDA FOR 30" SECONDS 

WHILE LOADING DM PROGRAM 


After a DM program has been sent to the UDA, the host 
eropres expects an interrupt within 30 seconds. The 
interrupt is used to assure the host program that the 
DM program is sane. If no interrupt occurred, then 
error message 00036 is displayed and the DM program is 
assumed to be hung. 


a Rm as' FTL ERR 00037 ON UNIT 00 = a _ 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME 

UDA REPORTED FATAL ERROR IN UDASA REGISTER “UHILE LOADING DM PROGRAM 
UDASA CONTAINS 10 

REPLACE UDA MODULE M7161 OR M7485 


While loading the DM S eregres to the UDA, the UDASA 
became non-zero. When this occurs, it Signi fies that 
the UDA microcode has run across a fatal error. The 
displayed value is in octal. Check the error code with 
the List in 00030. 


cre DVC FTL ERR 00100 ON UNIT 00 TST 001 SUB 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME x:xx:xx 
DUP PROGRAM ASKED UNEXPECTED QUESTION (25) 


The DUP program sends a value that corresponds to 
a specific question or message. If this value does not 
fit into the range of questions, then this error appears. 


CZUDE DVC FTL ERR vis ON UNIT 00 TST ot Bas 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME x 
DUP PROGRAM REJECTED ANSWER TO DATE OR SERIAL NUMBER QUESTION 


After the cperator inputs the date/serial number, the 
DUP program will ask the host program for them. If for 
some reason the date/serial number was unacceptable to 
the DUP program, this error message will appear. Retry 
the program and if this error appears again. get out 

of the diagnostic runtime services and back to the 
XXDP+ prompt and reload the program. 


SEQ 0022 
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3.2.2 DUP PROGRAM ERROR MESSAGES 


Error messages returned by the UDA formatter are as follows: 
GET STATUS failure 
This could be caused by a number of reasons. Examples: the 


RUN/STOP switch is out, the WRITE PROTECT switch is in, or the 
DIAGNOSTIC REQUEST bit is set by the drive. 


SDI send error 
An attempt to send an SDI command failed. The signal 
RECEIVER READY was not asserted. 

Unsuccessful SDI command 
The response from an SDI command was unsuccessful and all commands 
should be successful for the formatter to work. There may be a 
cable problem, drive receiver problem or UDA transmitter problem. 

SDI receive error 
This message is presented for several reasons. The drive timed out, 
the first word from the drive was not a start frame, there was a framing 
error on the SDI level 0 read (cable/receiver/transmitter problem), 
checksum error, or the buffer size given by the formatter wasn't large 
enough for the UDA. Again, there may be a cable/receiver/transmitter 
problem. 

UNIBUS read error 
This is caused by one of two prettens. While trying to read an overlay 
into the UDA buffer memory, the formatter came across a nonexistent memory 
error. Or, there was a failure while downline oye the bad block 
information. There may be something wrong with the UNIBUS or the UDA module 
M7161 or M7485. 

Formatter initialization error 


For this error to occur, the UDA must be processing the DM code improperly. 


Nonexistent unit number 
The desired disk drive wasn't attached to the UDA. 
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DBN/XBN format error (drive FORMAT command failed) 
ALL attempts and retries to format a track failed. There may have been 
a timeout of drive signals, the drive dropped the READ/WRITE READY 
signet ye the format operation or the drive clock timed out (which 
indicates cable/transmitter/receiver failures). 

FCT does not have enough good copies of each block 
There must at least two good copies of every block in the FCT. for 
this error to occur, the media is badly corrupted or the read/write 
logic is failing. 

SEEK error 
After a seek command completed successfully, the READ/WRITE READY 


signal was never set or the ATTENTION signal was set. 


RCT does not have enough good copies of each block 
There must be at least two good copies of every block in the RCT. For 
this error to occur, the media is badly corrupted or the read/write 
logic is failing. 

LBN format error (drive FORMAT command failed) 
ALL attempts and retries to format a track failed. There may have been 
a timeout of drive signals, the drive dropped the READ/WRITE READY 
signal during the format operation or the drive clock timed out (which 
indicates cable/transmitter/receiver failures). 

FCT write error 
A particular block failed to be written into every copy of the FCT. 
There is either terribly bad media or a write logic failure. 

RCT read error 
The formatter could not read at least one good copy of a particular 
block in the RCT area. 

RCT write error 


A particular block failed to be written into every copy of the RCT. 
There is either terribly bad media or a write logic failure. 


ne i Ce - --  -  C  + + 
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RCT full 


There were so many bad blocks on the media that the RCT area was 
filled and could not hold any more. There could be read/write 


logic failure or bad cable connection. 


FCT read error 
The formatter could not read at least one good copy of a particular 
block in the FCT area. 

FCT downline-load error 
The formatter was led to believe that a bad block information file 
was Larger than it really was. There may be a UNIBUS or M7161 or 
M7485 problem. 

Drive init timeout 
After the drive was inited, the RECEIVER READY signal never asserted. 


Illegal response to start-up question 
An overflow occurred when the serial number went over 64 bits. 


An example of how the errors are oresented is below: 


RUNTIME 0:00:18 
Nonexistant unit number 


a ne a ne ee ee 


Ee 
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SE SS SN a - a 


4.0 PERFORI.ANCE AND PROGRESS REPORTS 


There is no statistical report that can be printed using the 
Diagnostic Runtime Services PRINT command. 


The DUP oe issues the following messages upon normal 
completion 


Format completed 
n Revectored LBNS 
Where n is the number of LBNs revectored in the user data area. 


n Primary revectored LBNS 
Where n is the number of LBNs in message #2 which were primary 
revectors. 

n Secondary/teritary revectored LBNS 
Where n is the number of the LBNs in message #2 which were 
seconda;y or tertiary revectors. 

n Bad blocks in the RCT area due to data errors 


Where n is the number of blocks in the total RCT area which 
were bad. 


n Bad blocks in the DBN area due to data errors 
Where n is the number of blocks in the total DBN ‘area which 
were bad. 

n Bad blocks in the XBN area due to data errors 
Where mn is the number of blocks in the total XBN area which 
were bad. 

n Blocks retried on the check pass 


Where n is the number of blocks which had an error on the first 
read attempt after formatting. 


SEQ 0026 
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FCT used successfully or 
FCT was not used 


Depend on the answers to the software questi 
availabi Sy of the bad sector information (FCT 
messages will be printed. 


ons and the 
», one of these 


An example of how the messages are presented is below. 


RUNTIME 0:24:57 
Format completed 
Revectored LBNS 
Primary revectored LBNS 
0 Secondary/tertiary revectored LBNS 
0 Bad blocks in the RCT area due to data errors 
0 Bad blocks in the DBN area due to data errors 
0 Bad blocks in the XBN area due to data errors 
5 Blocks retried on the check pass 
FCT was not used 


ww 


5.0 TEST SUMMARIES 


There is only one test in this program - Test #1. Its only purpose is 
to load and run the format program in a UDA-50. 


57 
58 
59 


Nn A a 
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ot ~SBTTL PROGRAM HEADER 
$$ 002000 BGNMOD 
: 

25 THE PROGRAM HEADER IS THE INTERFACE BETWEEN 

$9 ;_THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 

31 i 

$$ 002000 POINTER BGNSW, BGNSFT, BGNSETUP 

34 002000 HEADER CZUDE.C.0,0,1,PR107 sFIELD SERVICE 
002000 LSNAME: : 
002000 103 eASCII /C/ 

2001 132 ASCII /Z/ 

002002 125 ASCII /U/ 
002003 104 ASCII /D/ 
002004 105 ASCII /E/ 
002005 000 -BYTE O 
02006 000 -BYTE O 
002007 000 -BYTE O 
002010 LSREV:: 
002010 103 ASCII /C/ 
002011 LSDEPO:: 
002011 060 ASCII /0/ 
002012 LSUNIT:: 
002012 000001 «WORD TS$PTHV 
002014 LSTIML:: 
002014 000000 «WORD 0 
002016 LSHPCP:: 
002016 022762 -WORD LSHARD 
002020 LSSPCP:: 
002020 023150 «WORD LS$SOFT 
002022 LSHPTP:: 
002022 002130 -WORD LSHW 
002024 LSSPTP:: 
002024 002144 -WORD LS$SW 
002026 LSLADP:: 
002026 000124° -WORD LS$LAST 
002030 LSSTA:: 
002030 000000 -WORD 0 
002032 L$CO:: 
002032 000000 -WORD 0 
002034 LSDTYP:: 
002034 000001 -WORD 1 
002036 LSAPT:: 
002036 000000 «WORD 0 
002040 LSDTP:: 
002040 002124 -WORD LSDISPATCH 
002042 LSPRIO:: 
002042 000340 eWORD PRIO7 
002044 LSENVI:: 
002044 000000 eWORD 0 
002046 LSEXP1:: 
002046 000000 -WORD 0 


Osos (OOS LGMREVE® ne COREVISION 
002051 003 “BYTE  (CSEDIT 
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000038 LSEF:: 

002052 000000 «WORD O 
002054 000000 -WORD O 
002056 LSSPC:: 

002056 000000 -WORD O 
002060 LSDEVP:: 

002060 003514 eWORD LSDVTYP 
002662 LSREPP:: 

002062 000000 -WORD O 
002064 LSEXP4:: 

002064 000000 -WORD 0 
002066 LSEXPS:: 

002066 000000 «WORD 0 
002070 LSAUT:: 

002070 000000 eWORD O 
002072 LSDUT:: 

002072 000000 eWORD 0 
002074 LS$LUN:: 

002074 000000 «WORD O 
002076 LSDESP:: 

002076 003536 «WORD LSDESC 
002100 LSLOAD: : 

002100 104035 EMT ESLOAD 
002102 LSETP:: 

002102 000000 «WORD O 
002104 LSICP:: 

002104 020376 -WORD LSINIT 
002106 LSCCP:: 

002106 022072 eWORD LSCLEAN 
002110 LSACP:: 

002110 022070 -WORD LS$AUTO 
002112 LSPRT:: 

002112 020370 -WORD LSPROT 
002114 LSTEST:: 

002114 000000 -WORD 0 
002116 LSDLY:: 

002116 000000 -WORD O 
002120 LSHIME:: 

002120 000000 eWORD O 
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TCH TABLE 
} -SBTTL DISPATCH TABLE 
3 r++ 
4 3 THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
2 ; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 
i e 
9 002122 DISPATCH 1 
O0e Ise 000001 WORD 1 


LSDISPATCH:: 
. WORD 


00 
002124 022102 T1 


ee ee ee 
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} ~SBTTL DEFAULT HARDWARE P-TABLE 

3 set 

4 3 THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 

5 3 THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 

6 3: IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES, 

‘ 3; AND IS USED AS A “‘TEMPLATE’’ FOR BUILDING THE P=TABLES. 

9 ° 

10 002126 BGNHW DFPTBL 
002126 000005 «WORD 110000-L$HW/2 
002130 LSHW: : 

7 002130 DFPTBL:: 

12 002130 172150 «WORD 172150 3; UNIBUS ADDRESS 

13 002132 000154 «WORD 154 3; VECTOR ADDRESS 

14 002134 000005 eWORD 5. : BR LEVEL 

15 002136 000077 eWORD 63. 3; UNIBUS BURST RATE 

16 002140 000000 eWORD 0. ; LOGICAL DRIVE NUMBER 

17 002142 ENDHW 


002142 L10000: 
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~SBTTL SOFTWARE P-TABLE 

3 p++ 

4 ; THE SOFTWARE TABLE CONTAINS VARIOUS DATA USED BY THE 

5 3; PROGRAM AS OPERATIONAL PARAMETERS. THESE PARAMETERS ARE 

6 3: SET UP AT ASSEMBLY TIME AND MAY BE VARIED BY THE OPERATOR 

‘ 3; AT RUN TIME. 

9 e 

10 002142 BGNSW SFPTBL 
002142 000001 «WORD £10001-L$SW/2 
002144 L$SW:: 

+9 002144 SFPTBL:: 

12 OFFSET USE 

13 002144 000007 -WORD 7 3 0. YES/NO ANSWERS 

14 002146 ENDSW 

15 002146 110001: 

16 002146 ENDMOD 


RE 


3 
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1 .SBTTL GLOBAL EQUATES SECTION 
| 5 002146 BGNMOD 
| 5 p++ 
| 6 : THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
| 4 : ARE USED IN MORE THAN ONE TEST. 
G 
10 002146 EQUALS 
: BIT DIFINITIONS 
100000 B1T15== 100000 
040000 BIT14== 40000 
020000 BIT13== 20000 
010000 BIT12== 10000 
004 BIT11== 4000 
002000 BIT10== 2000 
001000 BIT09== 1000 
0004 BITO8== 400 
000200 BITO7== 200 
000100 BIT06== 100 
000040 BITOS== 40 
000020 BITO4== 20 
000010 BITO3== 10 
000004 BITO2== 4 
000002 BITO1== 2 
000001 B1T00== 1 
001000 BIT9== BITO9 
000400 BIT8== BITOB 
000200 BIT7== BITO7 
000100 BIT6== BIT06 
000040 BITS== BITO5 
000020 BIT4== BITO4 
000010 BIT3== BITO3 
000004 BIT2== BITO2 
000002 BITi== B1T01 
000001 BITO== B1T00 
: EVENT FLAG DEFINITIONS 
3 ey EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 
000040 EF .START== 32. 3; START COMMAND WAS ISSUED 
000037 EF .RESTART==  » : RESTART COMMAND WAS ISSUED 
000036 EF .CONTINUE== 30. : CONTINUE COMMAND WAS ISSUE 
000035 EF .NEW== . 3; A NEW PASS HAS BEEN STARTED 
000034 EF .PWR== 28. + A POWER-FAIL/POWER-UP OCCURRED 
; : PRIORITY LEVEL DEFINITIONS 
000340 Pr107== 340 
000300 PRIOG== 300 
000240 PRIOS== 240 
000200 104== 200 











-—— 
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000140 PRIO3== 140 

000100 PRIO2== 100 

| 000040 PRIOT== 40 
000000 PRIOO== 0 

| OPERATOR FLAG BITS 

| . 

000004 EvL== 4 
000010 LOT== 10 
000020 ADR== 20 
000040 IDU== 40 
000100 ISR== 100 
000200 UAM== 200 
000400 BOE== 400 
001000 PNT== 1000 
002000 PRI== 2000 
004000 IXE== 000 

010000 IBE== 10000 
020000 IER== 20000 
040000 LOE== 40000 

” 00000 HOE== 100000 
12 000015 CR= 15 ;VALUE TO PASS TO PRINT MACRO TO END LINE 
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! sMACRO DEFINITIONS FOR GLOBAL EQUATES 

3 ; THESE MACROS ARE USED TO DEFINE INDEXES INTO A TABLE 

3 TCALLING SEQUENCE MUST BE 

7 ; 

8 : ITEM NAME BYTES 

9 : ITEM NAME BYTES 

10 : ITEM NAME BYTES 

1 ; END SIZE 

13 STABLE DEFINES THAT A TABLE IS About TO BE DEFINED AND END TERMINATES THE DEFINITION. 
14 [ANY NUMBER OF ITEM LINES CAN APPEAR. NAME IS THE NAME OF THE SYMBOL BEING EQUATED TO 
15 :THE INDEX. THE INDEX ALWAYS STARTS AT ZERO. BYTES SPECIFIES THE SIZE OF THE VALUE TO BE 
16 :STORED AT THAT INDEX IN BYTES. THE SIZE A RGUMENT TO THE END STATEMENT IS OPTIONAL, IT 
17 [BE EQUATED TO THE SIZE OF THE TABLE IN BYTES. THE SYMBOL TINDEX IS USED TO KEEP TRACK 
18 [OF THE INDEX VALUE AND WILL BE EQUAL TO THE SIZE OF THES TABLE AFTER THE END STATEMENT. 
20 eMACRO TABLE 

21 TINDEX=0 

z , 

24 -MACRO ITEM NAME BYTES 

25 NAME=T IN 

26 TINDEX= TINDEX*BYTES 

28 ; 

29 MACRO END SIZE 

30 IF NB SIZE 

31 SIZE= Me DES 

33 .ENDM 


i ee ee oe ee ee - = 
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GLOBAL EQUATES 





WN $0 DONOUSWN $0 VONAUSWN—OOONOUEWN— 


DI 
SECTION 


003777 


002000 
001000 
000400 





sUDA BIT DEFINITIONS 

SUDASA REGISTER UNIVERSAL READ BITS 
SA.S1= 004000 

SA.S2= 010000 

SA.S3= 020000 

SA.S4= 040000 

SA.ERR= 100000 

ZUDASA REGISTER ERROR STATUS BITS 
SA.ERC= 003777 

ZUDASA REGISTER STEP ONE READ BITS 
SA.NV= 002000 


SA.DI= 000400 
3 000377 


ZUDASA REGISTER STEP ONE WRITE BITS 
SA.VEC= 060177 


SA 00 
SA.STP= 100000 


SA.MS1= 000400 
SA.CM1= 004000 


ZUDASA REGISTER STEP TWO READ BITS 


SA.MSE= 000007 
SA. CME= 000070 


000100 . 
SA.STE= 000200 
SA.CTP= 003400 
SUDASA REGISTER STEP TWO WRITE BITS 


SA.PRG= 000001 
s 177776 


2 "7 
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SEQ 0036 


STEP 1 STATUS B 
STEP ¢ STATUS B 
STEP 

STEP 4 STATUS 
sERROR INDICATOR 


sERROR CODE 


NON SETTABLE INTERRUPT VECTOR 
322 BIT ADDRESS BUS 

sENHANCED DIAGNOSTICS 

sALL BITS RESERVED 


s INTERRUPT VECTOR (DIVIDED BY 4) 

s INTERRUPT ENABLE DURING INITIALIZATION 
sMESSAGE RING LENGTH 

sCOMMAND RING LENGTH 

sWRAP BIT 

sSTEP = MUST ALWAYS BE WRITTEN A ONE 


3LSB OF MESSAGE RING LENGTH 
3LSB OF COMMAND RING LENGTH 


sMESSAGE RING LENGTH ECHO 
COMMAND RING LENGTH ECHO 
sRESERVED 


STEP ECHO 
CONTROLLER TYPE 


ENABLE VAX UNIBUS ADAPTER PURGE INTERRUPT 
zLOW ORDER MESSAGE RING BYTE ADDRESS 


— ee Se te = —— - 
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sUDASA REGISTER STEP THREE READ BITS 


000177 pt 000177 zs INTERRUPT VECTOR ECHO 

000200 SA.INE= 000200 z INTERRUPT ENABLE ECHO 

000400 SALNVES 000400 VECTOR NOT PROGRAMMABLE 
; 003000 sRESERVED 


sUDASA REGISTER STEP THREE WRITE BITS 


1 

2 

3 

4 

5 

6 

7 

9 

10 : 077777 HIGH ORDER MESSAGE RING BYTE ADDRESS 
\) 100000 SA.TST= 100000 sPURGE POLE TEST ENABLE 

1; sUDASA REGISTER STEP FOUR READ BITS 

15 000017 SA.MCV= 000017 sUDA_MICROCODE VERSION 

16 000360 SA.CNT= 000360 CONTROLLER MODEL 

i : 003400 RESERVED 
4 sUDASA REGISTER STEP FOUR WRITE BITS 
21 000001 SA.GO= 000001 :GO BIT TO START UDA FIRMWARE 
22 000002 SA.LFC= 000002 ZLAST FAILURE CODE REQUEST 
23 000374 SA.BST= 000374 ;BURST LEVEL 


$s ; 
heeedl UDA=50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE %6 


GLOBAL EQUATES 


WHO DONOUSWN—OVDONOuUrwr— 


NONONONY @ t 


24 


SECTION 


100000 
040000 


000164 
000306 
000430 


000000 


;COMMAND/MESSAGE DESCRIPTOR BIT DEFINITIONS 


RG.OWN= 100000 Fd WHEN UDA OWNS RING 
RG.FLG= 040000 sFLAG BIT 


zOFFSETS INTO HOST COMMUNICATIONS AREA WITH ONE DESCRIPTOR TO EACH RING 
SAND TWO PACKET AND BUFFER AREAS. 


HC.ISZ= 4. SIZE OF INTERRUPT INDICATOR WORDS 
HC.RSZ= 4. SIZE OF RING IN BYTES 
-ESZ= 4. sate os ENVELOPE WORDS BEFORE PACKET 
-PSZ= 48. sSIZE COMMAND AND MESSAGE PACKETS 
HC.BSZ= 82. 3SIZE OF BUFFER 
HC.INT= 0. INTERRUPT INDICATOR WORDS START 
HC .MSG= ae INT+HC.1SZ ;MESSAGE RING START 
HC.MCT= HC.MSG+ ;MESSAGE RING CONTROL WORD 
HC.CMD= HC. MSG+HC. RSZ ;COMMAND RING START 
HC.CCT= COMMAND RING CONTROL WORDS 
HC.MEV= HC. “CMD +HC. RSZ MESSAGE ENVELOPE START 
HC.MPK= HC.MEV+HC.ESZ sMESSAGE PACKE ART 
HC.CEV= HC.MPK+HC.PSZ : AND ENVELOPE START 
~CPK= HC.CEV+HC.ESZ PACK ART 
HC.BF1= HC.CPK+HC.PSZ sFIRST BUFFER 
HC.BF2= HC.BF1+:iC.BSZ SECOND BUFFER 
HC.SI1Z= HC.BF2+HC.BS2Z ; TOTAL SIZE OF HOST COMM AREA 


VIRTUAL CIRCUIT IDENTIFIERS 


MSCP= 0 sMSCP CIRCUIT 

LOG= 1 3LOG CIRCUIT 

DIAG= -1 sDIAGNOSTIC CIRCUIT 

DUP= 1000 DIAGNOSTIC AND UTILITIES PROTOCOL 


oe a ae ee ee ee 


SEQ 0038 


ee sa iliac: tat We dunes 
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1 $ peer Bee EEO SS SSR OES S SOTO ese DoOessoaseaeseoea sesame + 
¢ : HC.INT INTERRUPT INDICATORS : 4 BYTES 
4 : Geecacaccecccsecasesessecssscusnseneussssessense$ 
5 ; HC.MSG ! MESSAGE RING ! 4 BYTES 
6 ; HC.MCT | 
Z $a nmemenr ene eset ee tonne een eee Eee ewe scan aan aes aeae $+ 
8 : HC.CMD ! COMMAND RING ! 4 BYTES 
9 : Hc.ccT } 
10 3 $eemae earn oe near eee nm wes eet oowasme aor anmaee es ee 
11 ; HC.MEV ! MESSAGE ENVELOPE ! §2 BYTES 
12 ; HC.MPK | 
13 F : ’ 
14 : 
15 : 
16 : 
1 7 3 Pomme mamrnronceoeane eum amo Seon ean ema e sean wamem nana + 
18 ; HC.CEV ! COMMAND ENVELOPE ! 52 BYTES 
19 3 HC.CPK ! : 
20 3 ; : 
21 3 : : 
22 3 : ; 
23 3 : : 
24 : + + 
25 , ! 82 BYTES 
26 ; : 
27 : ; 
28 3 : ; 
29 3 $ ewes ese ne Toor en SDD E SB Tee Se Seeeocwe eS Teese eeovesces + 
30 ; HC.BF2 ! BUFFER # 2 (REQUEST FROM DM PROGRAM) ! 82 BYTES 
32 ; 
33 : : : 
34 3 wom EE DOT E EES oa ee wen mS Ha or eo OD oD SS ce SE a ma + 


PRE big ta Reh At A 4 Ps ] 
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} COMMAND PACKET OPCODES 
3 000001 OP.ABO= 1 ABORT COMMAND 
4 000020 OP.ACC= 20 sACCESS COMMAND 
5 000010 OP.AVL= 10 AVAILABLE COMMAND 
6 000021 OP.CCD= 21 COMPARE CONTROLLER DATA COMMAND 
4 000040 -CMP= 40 ;COMPARE HOST DATA COMMAND 
8 oes -ERS= 22 ERASE COMMAND 
9 Fr -FLU= 23 ;FLUSH COMMAND 
10 aia OP.GCS= 2 7GET COMMAND STATUS COMMAND 
11 00 ~GUS= 3 3GET UNIT STATUS COMMAND 
12 000011 OP.ONL= 11 sONLINE COMMAND 
13 41 OP.RD= 41 
14 000024 OP.RPL= 24 sREPLACE COMMAND 
15 000004 OP.scC= 4 SET CONTROLLER CHARACTERISTICS COMMAND 
16 000012 OP.SUC= 12 ;SET_UNIT — COMMAND 
17 2 OP.WR= 42 WRITE COMMAND 
18 000030 OP.MRD= 30 ;MAINTENANCE READ COMMAND 
19 000031 OP.MWR= 31 :MAINTENANCE W WRITE COMMAND 
20 000200 OP.END= 200 END PACKET FLAG 
21 0007 OP.SEX= 7 SER IOUS EXCEPTION END PACKET 
22 000100 OP.AVA= 100 VAILABLE os gad hn MESSAGE 
23 000101 OP.DUP= 101 DUPLICAT E UNIT NUMBER ATTENTION MESSAGE 
24 000102 OP.SHC= 102 Hop copy. COMPLETE ATTENION MESSAGE 
$2 000103 OP.RLC= 103 RESET COMMAND LIMIT ATTENTION MESSAGE 
27 000001 OP.GDS= 1 sDUP GET pest Lad 
8 000001 OP.GSS= 1 ;DUP GET DUST STATUS 
9 000002 OP.ESP= 2 ;DUP EXECUTE Ye PROGRAM 
30 00003 OP.ELP= 35 :DUP EXECUTE wt ROGRAM 
31 000004 OP.SSD= 4 P SEND STUD DAT 
3 000005 OP.RSD= 5 ‘DUP RECEIVE STUD DATA 
34 sNOTE: END PACKET ghey (ALSO CALLED ENDCODES) ARE FORMED BY ADDING My END 
5 ;PACKET FLAG TO THE COMMAND OPCODE. ND°S END PACKET 
6 SCONTAINS THE VALUE OP.RD+OP.END IN ITS OPCODE FIELD. THE INVALID COMMAND E 
37 sPACKET CONTAINS JUST THE END PACKE (1.E., OP. ITS OPCODE FIELD. 
38 3 THE seniOus EXCEPTION END PACKET CONTAINS THE SUM OF THE END PACKET FLAG 
39 sPLUS THE SERIOUS EXCEPTION OPCODE SHOWN ABOVE (1.E., OP.SEX*+OP.END) IN ITS 
re ;OPCODE FIELD. 
$$ {COMMAND OPCODE BITS 3 THROUGH 5 INDICATE THE COMMAND CLASS, WHICH IS ENCODED 
44 ; 000 IMMEDIATE COMMANDS 


001 SEQUENTIAL COMMANDS 
010 NON-SEQUENTIAL COMMANDS THAT DO NOT INCLUDE A BUFFER DESCRIPTOR 
100 NON-SEQUENTIAL COMMANDS THAT DO INCLUDE A BUFFER DESCRIPTOR 


CZUDECO_UDA-50 D 
GLOBAL EQUATES S$ 





WWUIWRININPYNININONININYD) Os OO 
WN $0 OD NOAUSWWN $0 OONOUSWN “OC VOONOUSWwnN— 


SK 
nm 
S 


000200 
000100 
000040 
000020 


000200 


000001 


1 100000 

2 01000 
MD SCH H= 004000 
-SCL= 002000 

MD.SEC= 000100 
-SER= 000400 
~SSH= 000200 
-WBN= 000100 


MD. 

MD. "PRI= 000001 
END PACKET FLAGS 
EF .BBR= 000200 


EF. 

EF.SEX= 000020 
:CONTROLLER FLAGS 
= -ATN= 000200 


CF.576= 000001 


CEO ORR SERIOUS EXCEPTION 
SENPRESS REQUEST 

sFORCE ER®OR 

SUPPRESS CACHING (HIGH erce 
3S (LOW SPEED) 


OWING 
Sean Gate at + fet 
WRITE BACK (VOLATILE) 
Zui TE SHADOW SET ONE UNIT AT A TIME 


[FLUSH ENTIRE UNIT 
3VOLAT ILE ONLY 
XT UNIT 
TALLOW SELF DESTRUCTION 
; IGNORE pig FORMAT ERROR 
SET WRITE PROTE 
LEAR WRITE-BACK DATA LOST 
{PRIMARY REPLACEMENT BLOCK 


BAD BLO!K REPORTED 


iE 
;SERIOUS EXCEPTION 


sENABLE ATTENTION MESSAGES 

; ENABLE MISCELLANEOUS ERROR LOG MESSAGES 
ENABLE OTHER HOST*S ERROR LOG MESSAGES 
;ENABLE THIS HOST’S ERROR LOG MESSAGES 


HADOW 
:576 BYTE SECTORS 


SEQ 0041 


D 4 
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QAUNEWN $0 OONOUSWN“OOONOUSWN— 


NOPININININIR) 2 2 2 OO 


27 


000024 
000034 


UNIT FLAGS 


UF. fase 000001 
UF .C = 000002 


F 0 
UF .576= 000004 


COMPARE READS 
[COMPARE W 


WRITES 
;HOST INITIATED BAD renit REPLACEMENT 


;INACTIVE SHADOW SET 
; SUPPRESS CACHING by hy fa 
;SUPPRESS CACHING (LOW SPEED) 
WRI TE=BACK CNON-VOLAT 
WRITE PROTECT (HARDWARE ) 
WRITE PROTECT (SOFTWARE OR VOLUME) 
376 BYTE SECTORS 


COMMAND PACKET OFFSETS 


P.cRF= 0. 
P.UNIT= 4. 
P.OPCD= 8. 
P.MOD= 10. 
P.BCNT= 12. 
P.BUFF= 16. 
P.UADR= 16. 
P.LBN= 28. 
P.OTRF= 12. 
P.UNFL= 14. 
P.HSTI= 16. 
P.ELGF= 28. 
P.SHUN= 32. 
P.CPSP= 34. 
P.RBN= 12. 
P.VRSN= 12. 
P.CNTF= 14. 
P.HTMO= 16. 
P.USEF= 18. 
P.TIME= 20. 
P.RGID= 28. 
P.RGOF= 32. 
P.DMDT= 20. 
P.OVRL= 28. 


GENERIC COMMAND PACKET OFFSETS: 
= COMMAND REFERENCE NUMBER 
IT NUMBER 


SOPCODE 
:MODIFIERS 


YTE COUNT 
TBUFFCR DESCRIPTOR 
SUNIBUS ADDRESS OF BUFFER DESCRIPTOR 
sLOGICAL BLOCK NUMBER 


ABORT AND GET COMMAND STATUS COMMAND PACKET OFFSETS: 
OUTSTANDING REFERENCE NUMBER 


ONLINE AND SET UNIT RTT fies COMMAND PACKET OFFSETS: 
HOST sree ice / RESERVED 
ROR LOG FLAGS 


3 SHAD UN 
:COPY SPEED 
REPLACE COMMAND PACKET OFFSETS: 
REPLACEMENT BLOCK NUMBER 


SET CONTROLLER emnnctense i. COMMAND PACKET OFFSETS: 


SION 
ph ed et FLAGS 
;HOST TIMEOUT 
3USE FRACTION 
sQUAD-WORD TIME AND DATE 


MAINTENANCE READ AND MAINTENANCE WRITE COMMAND PACKET OFFSETS: 


SREGION OFFSET 
EXECUTE SUPPLIED PROGRAM COMMAND PACKET OFFSETS: 


T TERMINAL ADDRESS (MAINT WRITE ONLY) 


‘BUFFER DESCRIPTOR FOR OPERLAYS 


SEQ 0042 


ce Sa cn 2 oo rn ee 


E 4 
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1 yEND PACKET OFFSETS 

j GENERIC END PACKET OFFSETS: 

4 000000 P.CRF= 0. ; COMMAND REFERENCE NUMBER 
6 004 “UNIT= 4. ‘UNIT ER 

6 000010 P.OPCD= 8. ‘ OPCODE (ALSO CALLED ENDCODE) 
7 1 P.FLGS= 9. SEND PACKET FLAGS 

& 12 P.STS= 10. : STATUS 

9 000014 P.BCNT= 12. ‘BYTE COUNT 

10 P.FBBK= 28. ‘FIRST BAD BLOCK 

12 : GET COMMAND STATUS END PACKET OFFSETS: 

13 000014 P.OTRF= 12. ZOUTSTANDING REFERENCE NUMBER 
14 000020 P.CMST= 16. ‘COMMAND STATUS 

16 ; GET UNIT STATUS END PACKET OFFSETS: 

17 14 P.MLUN= 12. ;MULTI-UNIT CODE 

18 000016 P.UNFL= 14. SUN Tee AGS 

19 000020 P.HSTI= 16. SHOST IDENTIFIER 

20 000024 P.UNTI= 20. UNIT IDENTIFIER 
21 00 P.MEDI= 28. :MEDIA TYPE IDENTIFIER 

22 000040 P.SHUN= 32. sSHADGW UNIT 
23 000042 P.SHST= 34. : SHADOW STATUS 
24 000044 P.TRCK= 36. STRACK SIZE 
25 00046 P.GRP= 38. ‘GROUP SIZE 
26 000050 P.CYL= 40. ‘CYLINDER SIZE 
27 6054 P.RCTS= 44. ; RCT TABLE SIZE 

28 00005 P.RBNS= 46. RBNS / TRACK 
¢9 00005 P.RCTC= 47. SRCT COPIES 

31 : ONLINE AND SET UNIT CHARACTERISTICS END PACKET AND AVAILABLE 
32 . ATTENTION MESSAGE OFFSETS: 

33 000014 P.MLUN= 12. sMULTI“UNIT CODE 

34 000016 P.UNFL= 14. [UNIT FLAGS 

35 000020 P.HSTI= 16. sHOST IDENTIFIER 

36 000024 P.UNTI= 20. ‘UNIT IDENTIFIER 

37 000034 P.MEDI= 28. [MEDIA TYPE IDENTIFIER 

38 000040 P.SHUN= 32. “SHADOW UNIT 

39 000042 P.SHST= 34. :SHADOW STATUS 
40 000044 P.UNCL= 36. [UNIT C LIMIT 
41 000050 P.UNSZ= 40. [UNIT SIZE 
42 000054 P.VSER= 44. ‘VOLUME SERIAL NUMBER 
44 : SET CONTROLLER CHARACTERISTICS END PACKET OFFSETS: 
45 14 P.VRSN= 12. sMSCP VERSION 
46 000016 P.CNTF= 14. : CONTROLLER FLAGS 
47 20 P.CTMO= 16. CONTROLLER TIMEOUT 
48 22 P.CNCL= 18. [CONTROLLER COMMAND LIMIT 
49 000024 P.CNTI= 20. :CONTROLLER ID 

51 GET DUST STATUS END PACKET OFFSETS: 

52 000014 P.DEXT= 12. DUST yEROGRAM EXTENSION 
+} 000017 P.DFLG= 15. SSTATUS FLAG 

54 000020 P.DPI= 16. SPROGRESS. INDICATOR 

55 000024 P.DTO= 20. S TIMEOUT VALUE 


nn ee 


Stel 
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| 1 sSTATUS AND EVENT CODE DEFINITIONS 
| 
¢ 000037 ST.MSK= 37 sSTATUS / EVENT CODE MASK 
| 4 000040 ST. SUB= 40 ‘SUB-CODE MULTIPLIER 
5 ST.suc= 0 SUCCESS 
6 000001 “CMD= 1 S INVALID COMMAND 
7 0002 T. ABO= é :COMMAND ABORTED 
8 0003 ST.OFL= [UNI T=OFFLINE 
G 200004 T.AVL= 4 sUNIT-AVAILABL 
10 600005 “MFE= 5 [MEDIA FORMAT ERROR 
11 ST.WPR= 6 [WRITE PROTECT 
12 ? ST.CMP= 7 :C ERROR 
13 ST.DAT= 10 {DATA ERROR 
14 000011 ST.HST= 11 ‘HOST BUFFER ACCESS ERROR 
15 000012 ST.CNT= 12 [CONTROLLER ERROR 
16 000013 ST.DRV= 13 [DRIVE ERROR 
V7 000037 ST.DIA= 37 [MESSAGE FROM AN INTERNAL DIAGNOSTIC 
19 sGET DUST STATUS FLAGS 
21 000010 DF.ACT= 010 sSET IF THIS DUST CURRENTLY ACTIVE 
22 000004 DF .NES= 004 [SET iF THIS DUST WILL NOT ACCEPT THE EXECUTE 
23 [SUPPLIED PROGRAM COMMAND 
24 000002 DF.LCL= 002 :SET IF THIS DUST HAS A LOCAL LOAD MEDIA FOR LOADING 
25 ‘DIAGNOSTICS AND OTHER UTILITIES 
26 000001 DF.SA= 001 [SET IF ANY PROGRAM EXECUTION UNDER THIS DUST 
27 *DISABLES THE OPERATION OF ALL OTHER SERVERS IN THE 
38 [SAME SYSTEM AS THE DUST 
30 ;DUP MESSAGE TYPES 
32 010000 DU.QUE = 10000 : QUESTION 
33 020000 DU.DFL = 20000 “DEFAULT QUESTION 
34, 030000 DU.INF = 30000 : INFORMATION 
35 0000 DU.TER = 40000 TERMINATOR 
36 050000 DU.FTL = 50000 [FATAL ERROR 
37 DU.SPC = 60000 SPECIAL 
39 170000 DU.TYP= 170000 sMESSAGE TYPE FIELD 
41 30M PROGRAM HEADER DEFINITIONS 
43 000000 DMTRLN= 0 SOFFSET TO SIZE OF PROGRAM NEEDING DOWNLINE LOAD 
44 000004 DMOVRL= 4 TOFFSET TO SIZE OF OVERLAY 
45 000021 DMTMO= 21 [TIMEOUT VALUE IN SECONDS (ONE BYTE) 
46 000040 DMMAIN= 40 TOFFSET TO FIRST WORD OF MAIN PROGRAM 
47 001000 DMFRST= 1000 TADDRESS IN DM FILE CONTAINING FIRST BYTE OF HEADER 





————-— 
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| 
j ;CONTROLLER TABLE DEFINITIONS 
3 ONE TABLE WILL BE SET uP BY INITIALIZE SECTION FOR EACH UDA SELECTED 
4 [FOR TESTING. TABLES A RE _ CONTIGUOUS. THE END OF THE TABLES IS 
3 ;MARKED BY A WORD OF ZERO 
| 
7 3 THE FIRST TABLE IS POINTED TO BY THE CONTENTS OF CTABS. 
Q :THE NUMBER OF TABLES IS CONTAINED IN CTRLRS. 
| 10 002146 TABLE :START A TABLE DEFINITION 
12 002146 ITEM C.UADR 2 ZUNIBUS ADDRESS OF UDAIP REGISTER 
13 002146 ITEM C.UNIT 2 
14 000077 CT.UNT= 000077 : LOGICAL UNIT NUMBER (FIRST) 
15 100000 CT.AVL= BIT15 + SET WHEN NOT AVAILABLE FOR TESTING 
16 002146 ITEM C.VEC 2 
17 000777 CT.VEC= 000777 : VECTOR ADDRESS 
18 007000 CT.BRL= 007000 3 BR ay VEL 
19 002146 ITEM C.BST 2 ; LEVEL 
20 002146 ITEM C.JSR 2 S IHVERRUPT SERVICE ROUTINE FOR CONTROLLER 
21 002146 ITEM C.JAD 2 + THESE TWO WORDS LOADED WITH CJSR RO,UDASRVI 
22 002146 ITEM C.FLG 2 SFLAGS 
23 000002 CT.RN= BIT1 [DM PROGRAM RUNNING 
24 000004 CT.CMD= BIT2 ‘COMMAND ISSUED, WAITING FOR RESPONSE 
25 000010 CT.MSG= BIT3 [MESSAGE RESPONSE RECEIVED 
26 ‘WHENEVER THIS BIT IS SET, CT. CMD IS CLEARED 
27 000020 CT.REQ= BIT4 BUFFER HAS BEEN GIVEN TO UDA REQUEST 
28 ‘SET WHENEVER READ STUD DATA COMPUAND 
29 :GIVEN TO UDA 
30 000040 CT.STA= BITS 3GET DUST STATUS COMMAND HAS BEEN SENT 
31 000100 CT.TM1= BIT6 TIMEOUT PERIOD HAS EXPIRED BETWEEN SEND OR 
32 TRECEIVE DATA RESPONSE 
33 000200 CT. TM2= BIT7 SECOND TIMEOUT HAS EXPIRED 
34 0004 CT.US2= BIT8 : UDAS2 BIT 
35 001000 CT.USO= BITS : UDASO BIT 
36 002146 ITEM C.RING 2 ‘RING BUFFER ADD RESS 
37 002146 ITEM C.DRO 2 SPOINTER TO DRIVE TABLES 
38 002146 ITEM C.DR1 2 : IF ZERO, NO DRIVE T TABLE EXISTS 
39 002146 ITEM C.DR2 2 
40 002146 ITEM C.DR3 2 
41 002146 ITEM C.DR& 2 
42 002146 ITEM C.DRS 2 
43 002146 ITEM C.DR6 2 
44 002146 ITEM C.DR7 2 
45 002146 ITEM C.TO 2 ; TIMEOUT COUNTER 
46 002146 ITEM C.TOH 2 (TwO WORD Ds) 
47 002146 ITEM C.TOT 2 ‘DUP PROGRAM TIMEOUT VALUE IN SECONDS 
48 002146 ITEM C.PRI 4 [DUP PROGRAM PROGRESS INDICATOR 
49 002146 ITEM C.REF 2 ‘COMMAND REFERENCE NUMBER 


51 002146 END C.SIZE zSIZE OF CONTROLLER TABLE IN BYTES 








——_—_— 
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GLOBAL EQUATES SECTION 
} sDRIVE TABLE DEFINITIONS 
3 TONE DRIVE TABLE WILL BE SET UP BY THE gg ete SECTION EACH 
& :DRIVE SELECTED FOR TESTING. EACH TABLE IS POINTED TO BY 
2 D IN THE CONTROLLER TABLE ON WHICH THE DRIVE EXISTS. 
002146 TABLE sSTART A TABLE DEFINITION 
9 002146 ITEM D.DRV sDRIVE NUMBER 
10 002146 ITEM D.UNIT 
11 000077 DT.UNT= 000077 ; LOGICAL UNIT NUMBER OF DRIVE 
12 100000 DT.AVL= B1T15 3; SET WHEN NOT AVAILABLE FOR TESTING 
i 002146 ITEM D.SERN 22. DISK SERIAL NUMBER 
15 002146 END D.SIZE SIZE OF DRIVE TABLE IN BYTES 


Nn 


GLOBAL EQUATES SECTION 


—— USEFUL 
| 5 .MACRO 
4 
: 
6 
| ‘ -ENDM 
9 MACRO 
10 
11 
12 
13 -ENDM 
14 
15 .MACRO 
16 
17 
18 
19 
20 
21 .ENDM 
22 
23 .MACRO 
34 
25 
26 
7 
28 
9 .ENDM 
$0 
31 .MACRO 
32 
35 
34 
35 
36 
37 -ENDM 
38 
39 .MACRO 
40 
41 
42 
43 
a .ENDM 


A pray 
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INSTRUCTION DEFINITIONS 


AND ARG,ADR 
LIST 

eNLIST 

OR ARG,ADR 
LIST 

eNLIST 

PUSH ARG 
~IRP X,<ARG> 
LIST 


»NLIST 
-ENDM 


POP ARG 
-IRP X,<ARG> 
LIST 


eNLIST 
-ENDM 


-BR ADR 


ENDC 


ASSUME FIRST CONDITION SECOND 


P2 
-IF NE .-AD 
-ERROR 


sLOGICAL AND INSTRUCTION 


BIC #*C<ARG>,ADR 


LOGICAL OR INSTRUCTION 


PUSH INSTRUCTION 


POP INSTRUCTION 


BIS #ARG,ADR 


MOV X,-(SP) 


MOV (SP)+,Xx 


3A BRANCH TO THE NEXT LOCATION 


R 
ILLEGAL .BR TO ADR 


-I1F CONDITION <F IRST>=<SECOND> 


ees BAD ASSUME OF <FIRST> CONDITION <SECOND> 


SEQ 0047 


czwece UDA=50 DISK FORMATTER MACRO . 
| GLOBAL EQUATES SECTION 


Nonononononon 3 3 2 a a os 
OWONOUEWN—OVDONOUSWwh— 


DWONOULSWN oO 


SUMS NS 
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V04.00 30-AUG-82 12:58:39 PAGE 46 


gente CHARACTER 
; ARGUMENT rust TR UI gE Sa TO MOVE a TO PRINT (MOV ARG,RO) 


X: RI 
SPECIAL CASE: ‘PRINT #CR*’ WILL PRINT END OF LINE SEQUENCE 
3; THE PRINTING IS DONE AT THE MODE OF THE LAST PRINT LINE CALL 
: IE., PNTX, PNTB, PNTX, PNTS 


«MACRO PRINT ARG1 
oIF DIF <ARG1>,RO 
LIST 


MOVB ARG1,RO 
eNLIST 
-ENDC 
LIST 
CALL CPNT 
eNLIST 
-ENDM 
sPROCESSING MACRO FOR NEXT SET OF FORMATTED MESSAGE MACROS 
-MACRO Pe 9 ent OR AA AMEE AE AR LORE LE A 
- IRP A OROE AE LORE SRE SETA AOSD AONE ARE D 
MOV AA,~(SP) 
-NLIST 
PNT .CT=PNT.CT+2 
-EN 
-ENDM 
LIST 
JSR_R1,RTN 
-WORD ADR 
eWORD PNT.CT 
»NLIST 


SEQ 0048 


ea Ce eee 


k_ 4 
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GLOBAL EQUATES SECTION 


sPRINT FORMATTED MESSAGE MACROS 
USE THESE MACROS TO PRINT A FORMATTED MESSAGE 
FIRST ARGUMENT must } ADDRESS OF A a CHARACTER OF MESSAGE STRING 


; NTO WORD (.WORD A 
: UP TO 8 SOURCE STATEMENTS BAY Pot tow TO SPECIFY PARAMETERS TO BE 
: USED BY THE FORMAT 


«MACRO PNTF ADR ARG1,ARG2,ARG3,ARG4 ARGS ,ARG6,ARG7 ARGS 
PNT... LPNTF ADR ARG1,ARG2,ARG3,ARG4,ARGS,ARG6,ARG7, ARGS 


- ENDM 
<MACRO PNTB ADR ARG1,ARG2,ARG3,ARG4,ARG5,ARG6,ARG7 ARGS 
PNT... LPNTB ADR ARG1,ARG2,ARG3,ARG4,ARGS ,ARGO,ARG7 ARGS 


~ END 
"RACRO PNTX ADR ARG1,ARG2.ARG3,ARG4 ARGS ,ARG6,ARG7,ARG8 
PNT... LPNTX ADR ARG1,ARG2,ARG3,ARG4,ARGS ,ARG6,ARG7. ARGS 


- ENDM 
»MACRO PNTS ADR ARG1,ARG2,ARG3,ARG4 ARGS ,ARG6,ARG7 ARGS 
PNT... LPNTS ADR ARG1,ARG2,ARG3,ARG4,ARGS ,ARGO,ARG7, ARGS 


-ENDM 
»MACRO PNT_ADR ARG1,ARG2,ARG3,ARG4 ARGS ,ARG6,ARG7, ARGS 
_— PNT... LPNT ADR ARG1,ARG2,ARG3,ARG4,ARG5 ,ARG6,ARG7 ARGS 


MC DOONOUESWN—“OOONOUSwh— 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 





eS 


AL DATA SECT 


NVUNNVNNN 
w 5 
& 


geses sseeses 


MUFWN OC VCONOAUSWN“OOuUfSwr— 
ror 
od 
VN 
ern 


NOMOPONONYDR 2 2 oo SS 


30 002212 000000 
1 002214 000000 
000000 


000000 


42 003232 000000 
43 00 


48 003246 016106 
000 
22¢ 000000 


| 
| 
| 
1 
150 
152 
156 
160 
162 
164 000000 
166 000000 
170 
002176 
002200 
26 002202 000000 
27 002204 000000 
28 002206 125 
3266 132 


065 


000 


125 
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-SBTTL GLOBAL DATA SECTION 


ste 
3 THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
3 IN MORE THAN ONE TEST. 


SEQ 0050 


FFREE:: .6LKW 1 sFIRST dy WORD IN i us 

FSIZE:: .BLKW 1 sSIZE_OF FREE MEMORY IN WORDS 

FMEM: .BLKW 1 sCOPY OF FFREE rt END OF INIT SECTION 

FMEMS: .BLKW 1 :COPY OF STAst G T END OF INIT SECTION 

CTABS:: .BLKW 1 sSTART OF a a TABLE STORAGE 
CTRLRS: .BLKW 1 5 OUNT OF UDA CONTROLLERS IN PTABLES 
TSTTAB: .BLKW 1 SPOINTER TO FIRST CONTROLLER TABLE UNDER TEST 
: -GLOBL _UDAFM 
DMPROG: .WORD 0 zSTART ag gs OF DM PROGRAM 
DMSIZE: .WORD 0 7SIZE OF DM PROGRAM 
DMEND: .BLKW 1 END ADDRESS OF DM PROGRAM(FIRST cana MEMORY ADR) 
DMENDS: .BLKW 1 SFREE MEMORY SIZE FROM END OF DM PROGRAM 
URUN: .BLKW 1 opts OF UNITS TO RUN AT 
URNING: .BLKW 1 NUMBER OF UNITS STILL RUNN 

CNT: .BLKW 1 COUNTER OF UNITS UNDER TEST 

FILOPN: 4 0 ; FILE OPEN 

USOUNI: .WORD 0 3 KEEPS TRACK OF ANY UDA 50 CONTROLLERS 

062 USZEXT: “ASCIT\US2\ 

TSTTYPs .WORD 0 : inter: TYPE 

FNUM:  .WORD 8 : FILE NUMBER 

INMEM: .WORD 3 WHICH DM PROG IS _IN MEMORY 
UFREEZ: .BLKW 1 FREEZE ON UNIT WHEN NOT ZERO 
ee -BLKW } 7SET TO ALL ONES BY NON-EXISTANT ADDRESS 
FCTBUF: .BLKB 512. STORAGE FOR FCT BLOCK 

FCTNUM 1 


:FCT BLOCK NUMB 
MODE:  .BLKW 1 ;MODE WORD, SAME BIT DEFS AS SO.BIT 
CLOCK CONTROL 


KW.CSR: .WORD 0 CSR OF CLOCK 

KW.BRL: .BLKW 1 iB ad vet 

KW.VEC: .BLKW 1 VECTO 

KW.HZ: .BLKW 1 SMERTZ. (50. OR 60.) 

KW.EL: .BLKW 2 ELAPSED TIME 

PTYPE: PRINT TYPE 

ERRCHR: BYTE 0. 0 FIRST BYTE LOADED WITH OUTPUT CHARACTER 
NULL : —_ DO [USED TO PRINT A NULL CHARACTER 


FNAME2: .BLKB 10. 
104 FNAME: “ASELZAZUDGAO. -PAK\ 





[=] 


03330 


WAG 


PARRABRAAAAAAR AAA 


SSssssssssssssssssssssss 
AACCOUMUIUUIUIUIE & SWANN = | © 


NQAUSWN $0 OONAOUSWN$O OONOUS wi 
—ONOUEWN —“AWOVNIN FH“Owou 


PONUNINOININONIR) Ot oe 


oo 
So 


28 00 
29 00346 
3 4 


OOOO 3 ot ot 0 ot 2 = = 
b Sprtn yet etn 4h re 4 
ANVINNIA UN VIP WO 


WWUG 


055 


ed kk td ad od od I IO 
SOOONONMHRVNOO-OoON 
UN OS NIVIVIWNUTO 


071 
060 


112 


ad as Ss SS SS a SS I SO 
—ONNW— —“ONNNOO 
AMUN $A &NOSOWSE 


000 
000 
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GLOBAL DATA SECTION 


TEMP: 
DATEI: 


DATEO: 
HIGHEST: 
MONTHS: 


DAYS: 


YEAR19: 
YEAR20: 


IPADRS: . 


SEQ 0051 


USED TO GET ANSWER FROM GMANID CALL 
;DEFAULT DATE 


FORMATTER FORMAT 
ZERO SAYS NO DATE HERE YET) 
5 HIGHEST DISK SERIAL NUMBER 


-BLKB 22. 
0S ematical 
—- sDATE nl 
ph cae 


>>>>> 
Ronow mn 
Ow 
2o>0— 
om 
< 
aoe 
= 
mov 


JUN\ 
APR\ 


ASS BCChaocso 
Cc 
(7) 
a= 


>>>>> 
nnnnnn 
ASS AAMAAAAAAAOMAAQN 
mmm 


a5 


I] 
SCcII 
II 
I] 
I] 
II 
I] 
I] 
I] 
li 
II\F 
ata 


NUMBER OF DAYS IN EACH MONTH 


+ ++ tt 
z 


BYTE 





SS ss tenets mn a 
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GLOBAL TEXT SECTION 


| } .SBTTL GLOBAL TEXT SECTION 

3 p++ 

4 ; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 

5 > MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 

$ : MORE THAN ONE TEST. 

g © 

10 > NAMES OF DEVICES SUPPORTED BY PROGRAM 

12 003514 : DEVTYP <UDA=50 CONTROLLER> 
003514 LSDVTYP:: 
003514 125 104 101 -ASCIZ /UDA=50 CONTROLLER/ | 

13 , 

4 : TEST DESCRIPTION 

17 003536 DESCRIPT <CZUDECO UDA-50 DISK DRV FORMATTER> 
Oosee LSDESC:: 


103 132 125 «ASCIZ /CZUDECO UDA-50 DISK 
EVEN 





5 
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GLOBAL TEXT SECTI | 





1 sUNFORMATTED MESSAGES 

é 003600 105 116 124 DATEQ: tht elt DATE AS DD-MMM-YY\ 
4 003630 040 106 117 FILNAQ: .ASCIZ\ FOR DISK TO BE FORMATTED\ 
5 003662 040 000 SERNQ: <ASCIZ\ \ 
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GLOBAL TEXT SECTI 


1 ; FORMAT STATEMENTS USED IN PRINT CALLS 

$ 003664 045 -~—«124.-~=—=«(000._ERRONE: -ASCIZAZTN 

4 003667 9045S 116 = 000:sERRNL: = -ASCIZ\ZN\ ee 

3003672 042.,-«S 040,040. SRNTIM: | TASCIZ\ RUNTIME "'D16":""\ 

6 003715 = 104 3071 «= 042s RNTIMI: ASCIZ\D9"":'"\ 

7 003723 «= 104071 00 RNTIM2: LASCIZ\D9\ 

8 003726 = 042, 040 )=— 040 ERRMET: . TENG iT pees ERROR PROCESSING MESSAGE STRING * * #"N\ 
8.000015 11604212 MESSG: | CASCIZANUNIT, “DG 016° DRIVE 'D9S\ 

10 s zNOCLOCK: gASCIZ\NO L E CLOCK AVAILABLE-N\ 

11006061 = 042, 116117 NOCLOCK: .ASCIZ\"NO Cine CLOCK AVAILABLE FOR TIMING EVENTS'N\ 

12 004136 042 110 117 BASNO: -ASCIZ\"HOST PROGRAM 

13004155 = 042, S040 = 040 «BASL2: <ASCIZ\"' UDA AT “DI6\ 

Ve 004174 042040040 BASLE: -ASCIZ\" DRIVE "D9\ 

13 004211 000 BAS: YTE 0 :NULL TO PRINT NOTHING 

17 004212 = 122,066 )=—Ss«122:«BASLIN: = .ASCIZ\RORGRORO\ jUSED TO PRINT BASIC LINE OF ERROR MESSAGE 
18 004223 116 042 123 SERNUM: .ASCIZ\N''SERIAL NUMBER FOR UNIT "D6" UDA AT 016" DRIVE ‘D9\ 


do. 5 
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GLOBAL TEXT SECTION 
1 004310 KIA: 
3 ok 3 X2A: 
004310 X3A: - 
4 004310 O36 111 040 X8A: -ASCIZ\'"I DON'T LIKE THE ANSWERS YOU GAVE TO THE HARDWARE QUESTIONS" 'W\ 
5 004407 12 065 1$s 1: eASCIZ\RSR6" UDA HAS MORE THAN ONE VECTOR, BR LEVEL OR BURST RATE'W\ 
6 004503 122 065 122 X2: eASCIZ\RSR6''TWO UNITS SELECT THE SAME DRIVE’ 
7 004552 122 065 122 X3: eASCIZ\RSR6 ‘MORE THAN EIGHT DRIVES SELECTED ON THIS UDA'N\ . 
8 004635 122 064 042 Xé4: eASCIINRG ‘NOT ENOUGH ROOM IN MEMORY TO TEST THE UNITS wie ey N\ 
9 004726 042 120 114 eASCIZ\ PLEASE START PROGRAM OVER AND TEST FEWER UNITS AT A TIME’'N\ 
10 005022 122 064 042 Xx5: eASCIZ\R4"'CHECKSUM ERROR IN DM PROGRAM FILE ‘N\ 
11 005072 122 064 042 7: -ASCIZ\RG*ERROR IN DM PROGRAM FILE. DM PROGRAM NOT FOUND’ 'N\ 
12 005156 122 065 122 x8: eASCIZ\RSR6 ‘TWO UDA'S USE THE SAME VECTOR‘ 
73 005223 122 064 042 Xx9: eASCIINRG ‘ONLY ONE DISK CAN BE SELECTED IN HW QUESTIONS IN RESTORE MODE .‘'W\ 
14 005326 042 120 114 eASCIZ\' PLEASE OT ART PROGRAM OVER AND +e ONLY ONE DISK.‘N\ 
15 005415 122 064 042 x10: eASCIZ\R4G''THIS PROGRAM CAN ONLY REFORMAT A DISK IN UNATTE NDED MODE .‘'N\ 
16 005514 122 065 042 X11: »ASCIINR5S' WRONG APT FORMATTER IS BEING USED WITH THIS CONTROLLER. “NN 
23 005610 122 065 042 x20: eASCIINRS ‘MEMORY ERROR TRYING TO READ UDA REGISTERS'WN\ 
24 005666 042 103 110 eASCIIN’ CHECK UNIBUS SELECTION SWITCHES ON UDA MODULE M7161 OR M7485°'N\ 
25 005765 042 117 122 ASCIIN''OR | UNIBUS'‘N\ 
26 006001 042 117 122 eASCIZ\''OR ° 
27 006011 122 065 042 X21: eASCIIN 5°'UDA ge OULE' R70" b2" OF ras Pare NRB\ 
28 006071 042 122 105 eASCIZ\' REPLACE U M716°'02"" OF M74 
29 006142 122 065 042 X22: eASCII\ 5*"STEP Bit ‘OID : T SET IN ee MeGISTER DURING INITIALIZATION’ W\ 
30 006243 042 123 124 eASCIZ\''STEP BIT ExPecTeD ‘016NR8R7 
31 006300 122 065 042 X23A: eASCII\RS' UDA DID NOT CLEAR RING RTRUCTURE IN HOST MEMORY DURING INITIALIZATION’ W\ 
32 006412 104 071 042 eASCI1\D9"" WO WORDS WERE TO BE CLEARED STARTING AT ADDRESS *O16N\ 
33 006500 042 106 111 eASCIIN\' FIRST SEVERAL WORDS NOT CLEARED (UP TO 6):*N\ 
34 006555 123 066 O46 oASCIENSG ADDRESS 54 CONTEN ENTS’ W\ 
35 006606 123 067 117 X23B8: .ASCIZ\S7016SSO16N\ 
36 006622 122 065 042 X24: eASCIINRS* UDASA REGISTER DID NOT GO TO ZERO AFTER STEP 3 WRITE OF INITIALIZATION’ W\ 
37 006735 N42 120 125 eASCIZ\' PURGE /POLE cts WERE REQUESTED’ NR8R 
38 007012 122 065 042 x25: eASCIINRS' UDA DID NOT RET URN connest DATA IN UDASA REGISTER DURING INITIALIZATION’ W\ 
39 007126 042 040 040 eASCIZ\"" UDASA EXPECTED, ‘O16NR8R7\ 
40 007163 122 0S5 042 x30: eASCIZ\R5'' UDA REPORTED FATAL ERROR IN UDASA REGISTER WHILE RUNNING DM PROGRAM’ NR8\ 
41 007276 122 065 042 X31: eASCIZ\RS' ‘DUP PROGRAM IS HUNG’ 'W\ 
42 007327 122 065 042 X32: eASCIZ\RS' MESSAGE BUFFER rH be FROM DM PROGRAM WITH UNKNOWN REQUEST NUMBER’ W\ 
43 007440 122 065 042 X3€é: -ASCIINRS''NO INTERRUPT pithy ee ROM UDA FOR 30 SECONDS’ W\ 
4 007522 042 127 110 -ASCIZ\' WHILE LOADING DM PROGRAM’ 'N\ 
45 007556 122 065 042 X37: «ASCIZ\R5''UDA REPORTED FATAL ERROR IN UDASA REGISTER WHILE LOADING DM PROGRAM’ WRER7\ 
46 007673 122 065 042 x100: -ASCIZ\R5''DUP PROGRAM ASKED UNEXPECTED QUESTION (‘'D12°")"N\ 
47 007756 122 065 042 x101: -ASCIZ\RS''DUP PROGRAM REJECTED ANSWER TO DATE OR SERIAL NUMBER QUESTION’ N\ 


—- - 
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GLOBAL TEXT SECTION 
| 1010061 04 115. 105.-—«XMSG1: ~ASCIZ\""MESSAGE BUFFER CONTAINS: "N\ 
| g grits 12 063 117,—«xXMSG2 -ASC1Z\$301681016$1016S101651016s1016s1016N\ 
C10162s«13 065 042 XPKTI: :ASCII\RSRESPONSE PACKET FROM UDA DOES NOT CONTAIN EXPECTED DATA'W\ 
4 010256 0% 105111 “ASCIINESTHER UDA RETURNED ERROR STATUS OR PACKET WAS NOT RECEIVED CORRECTLY" N\ 
5 010 12 063 ue “ASCIZ\S3"‘CORMAND PACKET SENT''S6" RESPONSE PACKET RECEIVED" W\ 
6 01045 193 11? XPKT2: ZASC12\$6016S1016$14016S1016N\ 
2 010502 04g 040040. XSA:”CASCIZN". UDASA CONTAINS, "O1GN\ 
8 01053 045 122 105 XFRU:  “ASCIZ\"REPLACE UDA MODULE M7161 OR M7485'N\ 
10 
11 010600 045 101 111 SERNX: eASCIZ\ZAINPUT noone ANSWER WITH DECIMAL NUMBER LO= 0 HI= 2T\ 
12 010670 042 111 116 DATEX: .ASCIZ\'"INPUT ERR aN 
+ 010707 042 116 101 FILNAM it ‘NAME OF FILE CONTAINING BAD SECTOR INFORMATION''\ 


-—--—- I 


‘oem ERROR REPORT SECTION 


1 
2 
3 
“4 
5 
6 
? 
8 
9 
10 
11 
12 
13 
14 010770 
15 910770 
0770 
0774 
16 
17 
18 
19 


rororor 
Who 


ronornong 
NOUS 


2S3o 
OOoCCSo SGOCOCOO SGOCCCoOOo SCOCOCOoCoOO SCOCCoCoCoCoeSSo GOoOooCoOoO 


ae —_ oes DD ee I HH aw — 3 I 


Wr 


inten 
SES FRSLRE QSRELE ESESERE RSSISER FRE 


ss 
Osen 


36 


177777 


004310 
016240 


004310 
016240 


016240 


016240 


016240 








§ 
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-SBTTL GLOBAL ERROR REPORT SECTION 


" THE GLOBAL ERROR REPORT SECTION CONTAINS MESSAGE PRINTING AREAS 
3 USED BY MORE THAN TEST TO OUTPUT ADDITIONAL ERROR INFORMATION. PRINTB 
3 (BASIC) AND PRINTX (EXTENDED) CALLS ARE USED TO CALL PRINT SERVICES. 


SVCINS= =1 : LIST ng ba WE Sia 1 peers RIGHT 
SVCTST= =1 3 LIST TEST hae F SHIFTED RIGHT 
SVCSUB= =-1 3; LIST SUBTEST TAGS, SHIFTED RIGHT 
SVCGBL= -1 3 LIST GLOBAL TAGS, SHIFTED RIGHT 
SVCTAG= =-1 : LIST OTHER TAGS, SHIFTED RIGHT 


BGNMSG ERROO1 
PNTB X1,#X1A 
MOV #X1A,-(SP) 
JSR_R1,LPNTB 
~WORD x1 
«WORD PNT.CT 
ENDMSG 
BGNMSG ERROO2 
PNTB X2,#X2A 
MOV #X2A,-(SP) 
JSR_R1,LPNTB 
D x2 


- WOR 
-WORD PNT.CT 
ENDMSG 
BGNMSG ERROOS 
PNTB X3,4X3A 
MOV #X3A,-(SP) 
JSR RI -LPNTB 


- WORD 
<WORD PNT.CT 
ENDMSG 


BGNMSG ERROO04 
PNTB X4 
JSR_R1,LPNTB 
RD x4 


“WORD PNT.CT 
ENDMSG 


BGNMSG ERROOS 
PNTB X5 
JSR_R1,LPNTB 


: x 
eWORD PNT.CT 
ENDMSG 


BGNMSG ERROO7 
PNTB X7 
JSR _R1,LPNTB 
RD x7 


<WORD PNT.CT 
ENDMSG 


SEQ 0057 
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GLOBAL ERROR REPORT SECTI 


37 
38 011100 
| 39011100 
011100 
011104 
| 011110 
011112 
40 011114 
41 
42 011116 
43 011116 
011116 
011122 
011124 
44 011126 
45 
46 011130 
47 011130 
011130 
011134 
011136 
48 011140 
49 
50 011142 
51 011142 
011142 
011146 
011150 
52 011152 
53 
54 011154 
$$ 011154 
011154 
011160 
011162 
56 011164 
57 
58 011166 
59 011166 
60 011170 
61 011172 
011172 
62 011176 
63 011200 
64 011202 
011202 
011204 
011206 
011212 
011914 
65 011216 
66 
67 011220 
68 011220 
69 011226 
011226 
011230 





gre746 
00413 

005156 
000002 


004137 
005223 
000000 


004137 
005415 
000000 


004137 
005610 
000000 


S= 
= 
=] 
wn 
oo 
== 


ss 


oo 
—— 
oo 
u=— 
& 
o 


0041 
0060 
000 


042737 


010246 
013746 


004310 
016240 


016240 


016240 


016240 


016240 


177775 
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BGNMSG ERROOS 
PNTB X8,#X8A 


ENDMSG 
BGNMSG ERROO9 
PNTB X9 


ENDMSG 


BGNMSG ERRO10 
PNTB X10 


ENDMSG 
BGNMSG ERRO11 
PNTB X11 


ENDMSG 


BGNMSG ERRO20 
PNTB X20 


ENDMSG 
BGNMSG ERRO21 
MOV R2.R1 
Ri 
AND 2,R1 
ASR R1 


INC R1 
PNTB X21,R2,R1 


ENDMSG 


BGNMSG ERRO22 
BIC_#SA,ERR,UDARSD 
PNTB X22,UDARSD,R2 


MOV #X8A,-(SP) 
JSR tome 


eWORD X 
-WORD PNT.CT 


JSR R1,LPNTB 
«WORD X9 
-WORD PNT.CT 


JSR_R1,LPNTB 
«WORD X10 
-WORD PNT.CT 


JSR_R1,LPNTB 
eWORD X11 
-WORD PNT.CT 


JSR_R1,LPNTB 
«WORD X20 
eWORD PNT.CT 


BIC #*C<2>,R1 


MOV R1.-(SP) 
MOV R2,-(SP) 
JSR R1,LPNTB 
eWORD X21 

-WORD PNT.CT 


MOV R2,-(SP) 
MOV UDARSD,-(SP) 


SEQ 0058 


H 
beats UDA=50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE 4503 


GLOBAL 





011234 
gises 
011242 
70 011244 
71 011264 
48 
73 011266 
74 011266 
011266 
011272 
011274 
011300 
011302 
75 011304 
76 011306 
77 011310 
78 011312 
011312 
011314 
011316 
011322 
011324 
79 011326 
80 011330 
81 011332 
82 011334 
83 011336 
84 011340 
011340 
01134 
011746 
85 011550 
86 
87 011352 
88 011352 
011352 
011354 
011360 
011362 
89 011364 
90 
91 011366 
92 011366 
011366 
011370 
011372 
011376 
011400 
93 011402 
9% 
95 011404 
96 011404 
011404 
011406 
011412 
011414 
97 011416 


004137 
006142 


013746 
010146 
004137 

00 


ERROR REPORT SECTION 


016240 


002146 
016240 


016240 


016240 


016240 


016240 


016240 


ENDMSG 


PRINTX #XFRU 


BGNMSG ERRO23 


ERR23A: 


ERR238: 


ERR23C: 


ENDMSG 


PNTB X23A,R1,FFREE 


TST =(R2) 

TST (R2) 

BEQ ERR238 

PNTB X23B,R2,(R2) 


DEC R4 
BEQ ERR23C 
TST (R2)+ 


DEC R3 
BNE _ERR23A 
PNTB XFRU 


BGNMSG ERRO24 


ENDMSG 


PNTB X24,R2 


BGNMSG ERRO25 


ENDMSG 


PNTB X25,R1,R2 


BGNMSG ERRO30 


ENDMSG 


PNTB X30,R1 


ee a eee 


JSR_R1,LPNTB 
° X22 
«WORD PNT.CT 


MOV FFREE,-(SP) 
MOV R1,-(SP) 
JSR_R1,LPNTB 
eWORD X23A 
«WORD PNT.CT 


MOV (R2),-(SP) 
MOV R2,-(SP) 
JSR_R1,LPNTB 
-WORD X238 
-WORD PNT.CT 


JSR R1,LPNTB 
«WORD XFRU 


MOV R2,-(SP) 
JSR_R1,LPNTB 
D x24 


eWORD X 
WORD PNT.CT 


MOV R2,-(SP) 
MOV R1,-(SP) 


Xx 
-WORD PNT.CT 


MOV R1,-(SP) 
JSR_R1,LPNTB 
D x30 


R 
eWORD PNT.CT 


SEQ 0059 
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98 

99 011420 BGNMSG ERRO31 

100 011420 PNTB X31 
011620 904137 016240 JSR_R1,LPNTB 
011424 007276 WORD 31 
011426 000000 “WORD PNT.CT 

101 011450 ENDMSG 

103 011432 BGNMSG ERRO32 

104 011432 PNTB X32 
011432 004137 016240 JSR_R1,LPNTB 
011436 007327 WORD X32 
011440 000000 “WORD PNT.CT 

105 011442 004737 011632 CALL MSGPKT 

106 011446 ENDMSG 

108 011450 BGNMSG ERRO33 

109 011450 004737 011540 CALL PNTPKT 

110 011454 ENDMSG 

112 011456 BGNMSG ERRO34 

113 011456 004737 011540 CALL PNTPKT 

114 011462 ENDMSG 

116 011464 BGNMSG ERRO36 

117 011464 PNTB X36 
011464 004137 016240 JSR_R1,LPNTB 
011470 007440 WORD kX 
011472 000000 “WORD PNT.CT 
011474 ENDMSG 
011476 BGNMSG ERRO37 
011476 PNTB X37,R1 
011476 010146 MOV R1,-(SP) 
011500 004137 016240 JSR_R1,LPNTB 
011504 007556 WORD X37 
011506 0 “WORD PNT.CT 
011510 ENDMSG 
011512 BGNMSG ERR100 
011512 PNTB X100,(R4) 
011512 011446 MOV (R4),-(SP) 
011514 004137 016240 JSR _R1,LENTB 
011520 007673 WORD X100 
011522 2 “WORD PNT.CT 
011524 ENDMSG 
011526 BGNMSG ERR101 
031526 PNTB X101 
011526 004137 016240 JSR_R1,LPNTB 
011532 007756 -WORD X101 
011534 000000 “WORD PNT.CT 
011536 ENDMSG 
011540 PNTPKT: PNTB XPKT1 
011540 004137 016240 JSR_R1,LPNTB 
011544 010162 ~WORD XPKT1 


—— 
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a od 

BIRARY 
VIII 
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seg 8 
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pane pone Pane Saar Seer Per er Per ee Ser er er ers 
Oe ek ek ad ed ed ed od ed ed 
NNN NS SSSISOO 


WRN Sonn 
OooeLonw RoOSNON 
So 
= 
—_ 
xs 
LS 


000104 
000020 
000014 
000002 


000002 
016240 


000004 
000004 


016240 


016240 


000016 


PNTPKL: 


MSGPKL: 


MOV R4,R1 

ADD #HC.CPK,R1 
MOV R 

ADD #HC.MPK,R2 


ADD #4,R1 
ADD #4,R2 


DEC R 
BNE PNTPKL 
RETURN 


MSGPKT: PNTB XMSG1 


MOV C.RING(RS) ,R4 
ADD #HC.BF2,R4 


ADD #14.,R4 
DEC 

BNE MSGPKL 
RETURN 


MOV #12., 
PNTB XPKT2,2(R1),(R1),2(R2), (R2) 


MOV #5,R 
PNTB XMSG2,(R4),2(R4) ,4(R4) ,6(R4) 8. (R4),10.(R4),12. (R4) 


SEQ 0061 


«WORD PNT.CT 


JSR _R1,LPNTB 
-WORD XMSG1 
-WORD PNT.CT 


P) 


AOE EEE EEE 
xeccccce 


PNT.CT 








- 
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ee OBAL ERROR REPORT SECTION 
| 


1 000001 VCINS= 1 : LIST INSTRUCTIONS, SHIFTED RIGHT 
2 000001 SVCTST= 1 : LIST TEST TAGS, SHIFTED RIGH 

000001 SVCSUB= 1 : LIST SUBTEST TAGS, SHIFTED RIGHT 
4 000001 SVCGBL= 1 : LIST GLOBAL TAGS, SHIFTED RIGHT 
5 000901 SVCTAG= 1 + LIST OTHER TAGS, SHIFTED RIGHT 


i a ee eS  --- C-- — -——-- —- 
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1 -SBTTL GLOBAL SUBROUTINES SECTION 

5 sMEMORY ALLOCATION ERROR 

4 [THIS ROUTINE PRINTS A SYSTEM FATAL ERROR AND EXITS THE TEST 

7 732 FMERR: ERRSF 4,,ERRO04 
732 104454 TRAP CSERSF 
734 000004 «WORD 4 
736 000000 WORD 0 
740 011042 «WORD ERROO4 
742 DOCLN ; ABORT 
742 104444 TRAP CSDCLN 
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1 3;ALOCM 

2 3 

? sALLOCATE A BLOCK OF FREE MEMORY. REPORT ERROR IF MEMORY EXHAUSTED. 

5 s INPUTS: 

6 ; R1 = NUMBER OF WORDS TO ag el 

7 3 FFREE = FIRST FREE WORD IN MEMORY 

4 wuts SIZE OF FREE MEMORY AVAILABLE IN WORDS 

10 ; R1 - yoy OF Aes 2 WORD OF ALLOCATED MEMORY 

11 FFREE = NEW FIRST FREE WORD IN MEMORY 

12 FSIZE = SIZE OF FREE MEMORY LEFT AFTER ALLOCATION 

13 SYSTEM FATAL ERROR WILL BE REPORTED IF NOT ENOUGH MEMORY AVAILABLE 

1% SAND ENTIRE PROGRAM WILL BE STOPPED. 
16 011744 ALOCM: PUSH FFREE sSAVE FFREE AT ENTRY 

011744 013746 002146 MOV FFREE,-(SP) 

17 011750 160137 002150 SUB R1,FSIZE sREDUCE SIZE OF FREE MEMORY 

18 011754 002766 BLT FMERR sREPORT ERROP IF NOT ENOUGH MEMORY 
19 011756 060101 ADD R1,R1 + CHANGE WORDS TO BYTES 
20 011760 060137 002146 ADD R1 *FFREE s CALCULATE NEW START OF FREE — 
21 011764 POP R1 GET START OF ALLOCATED MEMORY 

011764 012601 MOV (SP)+,R1 

22 011766 000207 RETURN 


ee 





— +. 
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HCOMM 


SALLOCATES MEMORY FOR HOST COMM AREA AND PACKET BUFFERS WITH ONE 
[DESCRIPTOR IN EACH RING. TO BE CALLED WHEN INITIALIZING 
ZA CONTROLLER WITH SA.MSG=0 AND SA.CMD=0. 


$ INPUTS: 
R5 = ADDRESS OF CONTROLLER TABLE 
SOUTPUTS: 


; CONTROLLER TABLE POINTING he HOST COMM AREA 
; R4 = ADDRESS OF HOST COMM AREA 


770 012701 000214 HCOMM: MOV #HC.SI1Z/2,R1 sGET SIZE OF AREA . ALLOCATE 

774 004737 011744 CALL_ALOCM ZALLOCATE THE MEMO 

000 010165 000016 MOV R1,C.RING(RS) 3GET ADDRESS OF HOST COMM AREA 
PLACE IN CONTROLLER TABLE 


NOUSWN—ODOONOUSWN— 


— 3) 2d I = 


12004 000207 RETURN 
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4 ;TINIT 

¢ s INITIALIZE VARIABLES FOR TEST 

6 ; INPUTS: 

7 R1 = TEST NUMBER 

8 ‘OUTPUTS: 

9 H ny 8 - dae (DELETES ERROR LOG) 

10 Hy FREE = He de 

11 g SITE - FROM F MEMS 

12 : TNUM = TEST NUMBER FROM R1 

+ 3 ALL REGISTERS CLOBERED 

15 012006 004737 012064 TINIT: CALL RESET net ALL DEVICES 

16 012012 013737 002152 002146 MOV FMEM, FFREE zs INIT FFREE 

17 012020 013737 002154 002150 MOV FMEMS,FSIZE SINIT FSIZE 

18 012026 020137 002214 CMP R1,FNUM :SEE IF SAME TEST RUNNING 
19 012032 001007 BNE TINITR z1F NOT, GO TO READ DM PROGRAM 
20 012034 013737 002170 002146 MOV DMEND,FFREE ‘CHANGE FREE MEMORY TO LEAVE 
21 012042 013737 002172 002150 MOV DMENDS,FSIZE : DM PROGRAM ALLOCATED 
$8 012050 000207 RETURN 
24 012052 004737 012210 TINITR: CALL READDM sREAD DM PROGRAM 

25 012056 010137 002214 MOV R1,FNUM + STORE TEST NUMBER TO SHOW DM PROGRAM IN MEMORY 
26 012062 000207 RETURN 
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1 RESET 

§ 3; RESET ALL UbA=50S IN THE CONTROLLER TABLES 
4 : INPUTS: 

5 5 IPADRS = CONTAINS ALL IP ADDRESSES 
6 : OUTPUTS: 

‘ ; NONE 

9 012064 RESET: PUSH <R3,R4> 

012064 010346 MOV R3,-(SP) 

012066 010446 MOV R4,-(SP) 
10 012070 005037 002222 CLR NXMAD 
11 012074 SETVEC #4, 4NXM1,#PRIO7 

012074 012746 000340 MOV #PRI07,-(SP) 

012100 012746 017152 MOV #NXMI ,-(SP) 

012104 012746 000004 MOV #4,-(SP) 

012110 012746 000003 MOV #3,-(SP) 

012114 104437 TRAP CSSVEC 

012116 0627 000010 ADD #10,SP 
12 012122 BREAK 

012122 104422 TRAP CSBRK 
13 012124 012703 000010 MOV #8.,R3 ; R3 = COUNTER OF ENTRIES 
14 012130 012704 003474 MOV #IPADRS,R4 : R4 => IP ADDRESS 
15 012134 005714 1$: TST (R4) : IS THERE AN ENTRY? 

16 012136 0014 BEQ 2$ ; IF NOT, DONE 

17 012140 005034 CLR a(R4)+ 3; INIT UDA 

18 012142 005737 002222 TST NXMAD ; WAS THERE AN ERROR? 

19 B15 138 Ooi9! BNE 3$ : IF SO, EXIT 

20 012150 00530 DEC R3 : MAKE SURE WE DO NOT EXTEND OVER AREA 
21 012152 001370 BNE 1$ : IF NOT DONE, BRANCH 

22 012154 2$: CLRVEC #4 

012154 012700 000004 MOV #4,R0 

012160 104436 TRAP CSCVEC 
23 012162 PoP <R4,R3> 

012162 012604 MOV (SP)+,R4 

012164 012603 MOV (SP)+,R3 
$¢ 012166 000207 RETURN 
26 012170 005744 3$: TST -(R4) ; R4 => UDAIP THAT FAILED 
27 012172 010405 MOV R4,R5 : SAVE IN R5 FOR REPORT 
28 012174 ERRDF 20,,ERRO20 

012174 104455 TRAP CSERDF 

012176 000024 eWORD 20 

012200 00 . 

012202 011154 eWORD ERRO2ZO 
29 012204 005014 CLR (R4) : DESTROY ENTRY SO NOT TO FALL INTO RESET ERROR LOOP 
30 012206 DOCLN 

012206 104444 TRAP CSDCLN 


me ae es ee. ee -- - ee 


| 
| 
| 
| 
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eee ee eee 
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013737 
00 


00 
011066 
104444 


GLOBAL SUBROUTINES SECTION 


002146 
012516 
002146 
002150 


;READDM 
[READ A DM PROGRAM INTO FREE MEMORY 
: INPUTS: 
: R1 = TEST NUMBER 
sOUTPUTS: 
: ann POINTER TO START OF DM PROGRAM IN MEMORY 

CARRY CLEAR IF NO ERROR, CARRY SET IF PROGRAM NOT FOUND 
TALL REGISTERS BUT R1 ARE USED AND PREVIOUS CONTENTS DESTROYED 


002164 READDM: 7 Pg aati GET STORAGE ADDRESS 
BCS stacey CHECK IF ERROR 
002170 MOV FFREE ,DMEND ;SAVE END OF ADDRESS OF DM PROGRAM 
002172 Rov FSIZE. eDMENDS ; AND CURRENT SIZE OF FREE MEMORY 
README: ERRSF 7,,ERROO7 REPORT DM PROGRAM NOT FOUND 

TRAP CSERSF 
«WORD 7 
- WORD 


0 
«WORD ERROO7 
TRAP CSDCLN 


DOCLN 


SEQ 0068 


-———-— 
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SISNSS 
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016504 


042704 
010501 
062701 
012746 
010146 
010446 
012746 
104437 
062706 


000004 
177000 
000010 
000340 


000003 
000010 


sGToUST 


GET DUST STATUS 
GTDUST: MOV C.VEC(RS) RG 


1$: 


AND CT.VEC,R4 


MOV R5,R1 
ADD #C.JSR,R1 
SETVEC R4&,R1,#PRIO7 


CALL HCOMM 

CALL UDAINT 

BNE 1$ 

JMP LOADER 

MO #0P.GSS,RO 
CMD 


GET VECTOR OF UDA 


SEQ 0069 


BIC #*C<CT.VEC>,R4 


3:GET INTERRUPT SERVICE LINK 
SET UP INTERRUPT VECTOR 


ADD 
s INITIALIZE UDA WITH SMALLEST 
POSITION VECTOR FOR UDA 


ype 7 Or eal 


ALLOCATE SPACE FOR HOST COMM AREA 
; RING BUFFER AND INTERRUPTS ENABLED 


BRANCH IF AN ERROR 
¢ RO HAS OPCODE 
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; RUNDM 


SLOAD AND RUN A DM PROGRAM IN THE CONTROLLERS. RETURN WHEN ALL 
20M PROGRAMS HAVE TERMINATED. 


3 INPUTS: 
: TSTTAB = POINTER TO FIRST CONTROLLER TABLE 
- NUMBER OF CONTROLLERS TO TEST 
IMPLICIT INPUTS: 
‘output - MPROG = POINTER TO START OF DM PROGRAM IN MEMORY 


Z SET IF NO CONTROLLERS SUCCESSFULLY STARTED 
ZALL REGISTERS ARE USED AND PREVIOUS CONTENTS DESTROYED. 


012360 010137 002174 RUNDM: MOV R1,URUN Ane; NUMBER OF UNITS TO RUN 
012364 005057 002176 CLR URNING CLEAR NUMBER OF UNITS RUNNING 


LOAD DM PROGRAM INTO EACH CONTROLLER 


2370 013737 002174 002200 MOV URUN,UCNT SET COUNTER OF UNITS 

Sine 13705 002162 Leen MOV TSTTAB,RS GET FIRST CONTROLLER TABLE 
2402 042765 176377 000014 ; ah #*cC<CT. Usesct os C.FLG(RS) ;CLEAR ALL FLAGS 

2410 116537 000002 002074 MOVB C.UNIT( : RS) .LSLUN ;SEE IF UNIT TO BE TESTED 


000002 TST C.UNIT(RS) 

BMI z1F NOT, DON’T LOAD THIS UNIT 

ASSUME CT.AVL EQ BIT15 

002212 000014 BIT TSTiYP, C.FLG(RS) : DO We TEST THIS TYPE? 

BEQ LDNEXT IF NO BRANCH 
016372 CALL LOADDM LOAD one BM 

BEQ LDNEXT SIF ERROR, GO TO" NEXT CONTROLLER 
002176 INC URNING TIF NO ERROR, COUNT UNIT RUNNING 
000054 LDNEXT: ADD rt SIZE, RS [MOVE TO NEXT CONTROLLER TABLE 
002200 DEC UCNT CHECK Ao CONTROLLERS 


BNE LDDM LOAD NE 
002220 CLR UFREEZ ;CLEAR UNIT FREEZE FLAG 
177777 + 003226 MOV #=1,FCTNUM ;INVALIDATE FCT BLOCK NUMBER (BLOCK IN MEMORY) 


sCHECK IF ANY CONTROLLERS LOADED 
002176 TST URNING ANY UNITS LOADED? 


| 
45 012472 
47 3 THE DM PROGRAMS ARE NOW IN CONTROL 
48 ;RESPDM MUST BE CALLED TO RESPOND TO THEIR REQUESTS 


POMINONOMONINUR) 2 = 
[8] 
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3 


SRS Ww 


SSssss 


CSoOoooooooooooooooo 
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me me ee ce ce eed ee eed ed eed eed ot od od = 

N Rong 
aS 

OR 

es 

Ww 

Ww 

N 

oO 


~w 

4 

$3 

So 

—_ 
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S 
So 
w 
| 
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N 


49 
50 012476 000207 RETURN 


SEQ 0070 


‘ eee ee - 
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:CLOSEF 
ZCLOSE DATA FILE FOR DM PROGRAMS 


; INPUTS: 

; FILOPN = ZERO IF FILE NOT OPEN 
sOUTPUTS: 

; NONE 

500 005737 002202 CLOSEF: TST FILOPN sSEE IF FILE CURRENTLY OPEN 
504 001403 BEQ 1$ 

506 CLOSE : IF SO, CLOSE IT 
506 
510 
514 


104435 TRAP 
005037 002202 CLR FILOPN zAND MARK AS SO 
000207 RE TURN 


Vit Wr -OOCONeuUewn 


fa > tb 


1$: 


SS 


C$CLOS 


SEQ 0071 


poo ne 
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SOSCSCSCSCOSCSOSCSO COCOOOOOOOoOoOoOoOSoO 
MNS S&S EWWW or 


SS San 
RANEERSSS F 


ee ee ee ee ae et ee ed a ed ed ed aed ed ed 
“ 
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MMM Roronror 
oa 
o 
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OOn Ouewr 


104422 


002202 


003266 
002202 


000001 


;RDREC 


SEQ 0072 


[READ A RECORD FROM THE INPUT FILE. PLACE DATA INTO FREE MEMORY. 


: INPUTS: 


RDSTS: 
RDST: 


R1 = FILE TYPE 
1 = UDAS2 FORMATTER 
2 = UDASO FORMATTER 


TS: 
DATA FROM RECORD IN MEMORY 


CARRY CLEAR IF NO ERROR, CARRY SET IF ERROR 


PUSH <RO,R1,R2,R35,R4,R5> 


TST FILOPN 
BNE RDSTS 


OPEN #FNAME 


INC FILOPN 
CLR RS 
BREAK 


GETBYTE R4 


GETBYTE RO 
ADD RO,R4 
TST RO 

BEQ RDDAT 


MOV RO,-(SP) 
MOV R1,-(SP) 


MO 
SEE IF FILE ALREADY OPEN 


31F NGT, OPEN FILE NOW 
MOV #FNAME ,RO 


TRAP CSOPEN 
zAND MARK AS OPEN 
CLEAR LOAD ADDRESS (SEARCH MODE) 
ALLOW PROGRAM TO BE INTERRUPTED 
TRAP CSBRK 
s;GETBYTE CALLS DON'T SEEM TO BREAK ON CONTROL-C! 
3GET A BYTE 


TRAP C$GETB 
MOVB RO,R4 


zIF ZERO 
; KEEP READING 
WHEN NOT ZERO 
; IT BETTER BE A ONE 
: AND THE NEXT BYTE 
TRAP C$GETB 


; IF ZERO, PROCESS DATA 


tn A a ee eee 
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012604 020001 CMP RO,R1 sCHECK IF TYPE OF FILE LOOKING F 
012606 103416 BLO RDDAT ‘IF TOO SOON IN FILE, KEEP SP RRCHING 
012610 101120 BHI RDERR SIF PAST TYPE, GIVE ERROR RETURN 
012612 004737 013030 CALL FWORD *GET NEXT TWO WORD 

012616 01570¢ 002224 MOV FDATA,R2 

012622 004737 013030 CALL F 

012626 GETBYTE. RO :GET CHECKSUM 

012626 104426 TRAP  C$GETB 
0126 ADD RO,R4 yADD TO COMPUTED SUM 

012632 105704 TSTB R4 SEE IF THIS SUM IS ZERO 

012634 001120 BNE RWRDE1 F NO REPORT CHECKSUM ERROR 
012636 013705 002146 MOV FFREE,RS GET STORAGE ADDRES 

012642 000744 BR RDST SSWITCH FROM SEARCH TO STORE MODE 


-—-—— 
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GLOBAL SUBROUTINES SECTION 


MMMM ho 
eS 


NAR 
RSaNS 


MoMonononononrfnorngs 
~~ 
—_ 
~ 


m 
~“ 
Ww 
N 


OWDONAUE WN OVONOUSWN—OVOONOUSWwN— 
mw 


SOSOSSSSCOSOSOSCOOCOOCSCOOCOoOoOoOoOoOSooOOoOSoOSo COoOo 


Wwh— 
eB ee ce ce cee ee ed ee ce ed ed ed ed ed ed ed ed aed ed ed ed ed de ed ad ad ed 
rm 


yeas BSVEVeUrR NMNIND 3 2 2 tS os 


002224 
001000 
000001 


002146 


011744 


RDDAT: 


1$: 


2$: 


3$: 


4$: 


CALL_FWORD 
MOV ra ae 
CALL FWORD 
SUB #6,R3 
BEQ RWORDT 
TST RS 

3$ 
MOV FDATA,R1 
SUB #DMFRST,R1 

R5,R1 
BIT #1,R1 

1$ 


SUB #DMFRST,R2 
ADD RS, 

GETBYTE RO 
TST RS 

BEQ 4$ 

MOVB RO, (R2)+ 
ADD RO,R4 

BNE 3$ 
GETBYTE RO 

ADD RO,R4 
TSTB R4 


BEQ RDST 
BR RWRDE1 


6 


rt | AF aaa 
READ LOAD ADDRESS 


SUBTRACT iat eH —¥ FROM BYTE COUNT 


IF RESULT IS ZERO, THIS IS A 
‘TRANSFER BLOCK 


ZIF_IN SEARCH MODE, 
:__BYPASS TRANSFER ADDRESS COMPUTATION 
:GET LOAD A 


ADD BYTES IN RECORD 


COMPUTE STORAGE ADDRESS 
gt IF ODD BYTE ADDRESS 


; 0, 
:__INCR 


EMENT 
SEE IF MORE MEMORY NEEDS TO BE ALLOCATED 


sREDUCE TO WORDS 
sALLOCATE THE MEMORY 
GET LOAD ADDRESS 


GET DATA BYTE 


:1F_IN SEARCH MODE, 
; eng DATA STORAGE 
sSTORE_ IN MEMORY 


TRAP 


7GET CHECKSUM 
TRAP 


3ADD 

iF oumn aan CORRECT, 
; THEN GO READ NEXT RECORD 
: ELSE REPORT ERROR 


C$GETB 


C$GETB 


— ——_——_ ——— - — —— Oe ae we  - —— 


K_ 6 
‘cess UDA-50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE 69 
GLOBAL SUBROUTINES SECTION 


SEQ 0075 





1 012774 RWORDT: GETBYTE RO ;READ CHECKSUM BYTE 
012774 104426 TRAP  C$GETB 

: 012776 0004 ADD RO,R4 zADD TO COMPUTED CHECKSUM 
013000 105704 TSTB R4 ‘CHECK LOW BYTE UM 

4 013002 001035 BNE RWRDE1 [BRANCH IF CHECKSUM ERROR 

5 013004 005705 TST R5 tIF IN SEARCH MODE, 

6 013006 001662 BEQ RDST t KEEP ON SEARCHING 

7 013010 POP <R5,R4,R3,R2,R1,RO> 
013010 012605 MOV (SP)+,R5 
013012 012604 MOV (SP)+.R4 
013014 012603 MOV (SP)+.R3 
013016 012602 MOV (SP)+.R2 
013020 012601 MOV (SP)+.R1 
013022 012600 MOV (SP)+.RO 

8 013024 000241 CLC 

L 013026 000207 RETURN 

11 013030 FWORD: GETBYTE RO :READ A BYTE FROM FILE 
013030 104426 TRAP  C$GETB 

12 013032 060004 ADD RO,R4 UPDATE CHECKSUM ERROR 

13 013034 110037 002224 MOVB RO,FDATA ‘START TO BUIL 

14 013040 GETBYTE RO *READ ANOTHER BYTE FROM FILE 
013040 104426 C$GETB 

15 013042 060004 ADD R ;UPDATE CHECKSUM 

16 013044 110037 002225 MOVE RO. SDATASA [COMPLETE WORD 

17 013050 000207 RETUR 





———-—-—— 


6 
CZUDECO UDA~50 DISK FORMATTER MACRO VO4.00 30-AUG-82 12:58:39 PAGE 0 SEQ 0076 
GLOBAL SUBROUTINES SECTION 
1 013052 004737 012500 RDERR: CALL CLOSEF ;CLOSE FILE AS POSITION IS LOST 
013056 POP <R5,R4,R3,R2,R1,RO> 
013056 012605 MOV (SP)+,R5 
013060 012604 MOV (SP)+,R4 
013062 012603 MOV (SP)+,R3 
013064 012602 MOV (SP)+,R2 
013066 012601 MOV (SP)+.R1 
013670 012600 MOV (SP)+,RO 
3 013072 000261 SEC ;ERROR RETURN, FILE NOT FOUND 
4 01307 000207 RETURN 
6 013076 RWRDE1: ERRSF 5,,ERROOS 
013076 104454 TRAP CSERSF 
013100 000005 -WORD 5 
013102 000000 “WORD 0 
013104 011054 “WORD — ERROOS 
7 013106 DOCLN 
013106 104444 TRAP CSDCLN 











mM 6 
'CZUDECO UDA-50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE 71 SEQ 0077 
GLOBAL SUBROUTINES SECTION 


2 ;RESPDM 
| 4 “RESPOND TO DM REQUESTS. RETURN WHEN ALL DM PROGRAMS 
> SHAVE TERMINATED. 
7 013110 013705 002162 RESPDM: MOV TSTTAB,RS ;GET CONTROLLER TABLE ADDRESS 
8 013114 013737 002174 002200 OV URUN,UCNT COUNTER OF UNITS 
9 013122 RESPCT: BREAK ALLOW DRS TO SEE TERMINAL INPUT 
013122 104422 C$BRK 
10 013124 016504 000016 MOV C.RING(RS) ,R4 :GET HOST COMM AREA ADDRESS” 
11 013130 032765 000002 000014 BIT #CT.RN,C-FLG(RS) [CHECK IF PROGRAM RUNNING 
12 013136 001502 BEQ RSPNXT :IF NOT, LOOK AT NEXT 
13 013140 116537 000002 002074 MOVB C.UNIT(RS) ,L$LUN “STORE UNIT NUMBER UNDER TEST 
14 013146 032765 000010 000014 BIT #CT.MSG,C.FLG(RS) [SEE IF INTERRUPT RECEIVED 
15 013154 001150 BNE RSPIN TIF $0, LOOK AT PACKET 
16 013156 032765 000004 000014 BIT #CT.CMD,C.FLG(RS) 7SEE IF LO RPAND HAS BEEN SENT 
17 013164 001002 BNE 1$ :IF NOT, SEND ONE 
18 013166 000137 013734 JMP RSPOUT 
20 :CHECK IF UDA STILL RUNNING 
22 013172 011503 1$: MOV (R5),R3 :GET ADDRESS OF UDAIP 
23 013174 016301 000002 MOV 2(R3}. R1 ‘LOOK AT UDASA REGISTER 
24 013200 001405 BEQ [IF ZERO, UDA STILL RUNNING 
25 013202 SEROE + FO, ERRO3O SREPORT UDA HAS FATAL ERROR 
013202 104455 TRAP  CSERDF 
013204 000036 .WORD 30 
013206 000000 “WORD O 
013210 011404 "WORD ERRO30 
26 013212 000465 BR RSPDRP ;DROP CONTROLLER FROM TESTING 
38 :CHECK FOR TIMEOUT OF RESPONSE 
30 013214 005765 000044 RSPTM: TST C.TOT(RS) :SEE IF DUP PROGRAM TO BE TIMED 
31 013220 001451 BEQ RSPNTO 
32 013222 005737 003232 TST KW.CSR iSEE IF A CLOCK ON SYSTEM 
33 013226 001446 BEQ RSPNTO ON'T TIME IF NO CLOCK 
34 013230 023765 002244 000042 CMP KW.EL+2,C.TOH(RS) sOOMPARE TO TIMEOUT COUNTER 
35 013236 101005 BHI RSPTMO 
36 013240 001041 BNE RSPNTO 
37 013242 023765 003242 000040 CMP KW.EL,C.TO(RS) 
38 013250 103435 BLO RSPNTO sIF TOO MUCH TIME ELAPSED SINCE LAST INTERRUPT 
39 013252 032765 000040 000014 RSPTMO: BIT #CT.STA,C.FLG(RS) SSEE IF A GET DUST STATUS COMMAND OUTSTANDING 
40 013260 001101 BNE RSPTOE *REPORT ERROR IF SO 
41 013262 005764 000012 TST HC.CCT(R4) [SEE IF UDA TOOK LAST COMMAND PACKET 
42 013266 100476 BMI RSPT OE SREPORT ERROR IF NOT 
43 013270 01270C 000100 MOV #CT.TM1,RO [SEE IF FIRST TIMEOUT ALREADY HAPPENED 
44 013274 032765 000100 000014 BIT #CT.TM1.C.FLG(RS) 
45 013302 001401 BEQ 1$ 31 
46 013304 006300 RO *SET SECOND TIME OUT FLAG 
47 013306 052700 000040 1$: ars #CT.STA,RO ;SET THE PROPER TIMEOUT BIT 
48 013312 050065 000014 BIS RO,C.FLG(RS) AND STATUS REQUESTED BIT 
49 013316 012700 000001 MOV #OP.GDS,RO SBUILD GET DUST STATUS COMMAND 
50 013322 004737 016574 CALL BLDCMD 
51 013326 012764 100000 000012 MOV #RG.OWN,HC.CCT(R4) :MARK COMMAND TO UDA 
52 013334 005775 000000 TST a(R5) ?TELL UDA COMMAND IS THERE 
53 013340 000137 014014 JMP RSPOUS 





——— eee enna —- 
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CZUDECO UDA=50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE Mei SEQ 0078 
GLOBAL SUBROUTINES SECTION 


54 013344 RSPNTO: 


ei ee CC + 


scan seresntaneeiinshsiaanacmancaceeiinianiiitticaiaanen intinalbamunlited : 
CZUDECO UDA-50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE 2 
GLOBAL SUBROUTINES SECTION 


SEQ 0079 





1 :SWITCH TO NEXT CONTROLLER 
: 013344 005737 002220 RSPNXT: TST UFREEZ :FROZEN TO ONE UNIT? 
4 013350 001264 BNE RESPCT sSTAY THERE IF SO 
5 013352 062705 000054 ADD #C.SIZE,RS :MOVE TO NEXT TABLE 
6 013396 005337 002200 DEC UCNT sCHECK IF MORE CONTROLLERS 
7 013362 001257 BNE RESPCT *LOOK AT NEXT CONTROLLER 
g 013364 000651 BR RESPDM sLOOK AT FIRST CONTROLLER AGAIN 
19 :REMOVE A CONTROLLER FROM TESTING 
12 013366 005065 000014 RSPDRP: CLR C.FLG(RS) ;CLEAR PROGRAM RUNNING 
13 013372 005037 002220 CLR UFREEZ 
14 013376 010504 MOV RS,R4 
15 013400 062704 000020 ADD #C.DRO,R4 
16 013404 012702 000010 MOV #8.,R 
17 013410 012403 1$: MOV (R45+,R3 
18 013412 001420 BEQ 3$ 
19 013414 005763 000002 TST D.UNIT(R3) 
20 013420 ASSUME DT.AVL EQ BIT15 
21 013420 100003 BPL 2 
22 013422 005302 DEC R2 
23 013424 001371 BNE 1$ 
24 013426 000412 BR 3$ 
25 013430 052763 100000 000002 2$: BIS #DT.AVL,D.UNIT(R3) 
26 013436 005302 DEC R2 
27 013440 001405 BEQ 3$ 
28 013442 005714 TST (R4) 
29 013444 001403 BEQ 3$ 
30 013446 004737 016372 CALL LOADDM :START DM PROGRAM AGAIN 
31 013452 001223 BNE RESPCT 
32 013454 005337 002176 3$: DEC URNING :REDUCE RUNNING CONTROLLERS COUNT 
33 013460 001331 BNE RSPNXT SIF ANY STILL RUNNING, LOOK AT THEM 
34 013462 000207 RETURN ‘ELSE RETURN TO TEST SECTION 
36 013464 RSPTOE: ERRDF 31,,ERRO31 :REPORT TIMEOUT ERROR 
013464 104455 CSERDF 
013466 000037 «WORD 31 
013470 -WORD 0 
013472 011420 .WORD ERRU31 
37 013474 000734 BR RSPDRP zDROP CONTROLLER FROM TESTING 





a Ce - ee ae + + 


Seas UDA=50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE C7 SEQ 0080 
|GLOBAL SUBROUTINES SECTION 


1 sCONTROLLER HAS RESPONDED, LOOK AT MESSAGE PACKET 
5 CHECK FOR PROPER OPCODE IN END PACKET 
5 013476 012700 000204 RSPIN: MOV #0P.END+OP.SSD,RO GET SEND DATA END PACKET OPCODE 
6 013502 032765 000020 000014 BIT #CT.REQ,C.FLG(RS) ;LOOK IF SEND DATA OR RECEIVE DATA 
7 013510 001402 BEQ RS 
8 013512 012700 000205 MOV #OP.END+OP.RSD,RO CHANGE TO RECEIVE DATA END PACKET OPCODE 
9 013516 120064 000030 RSPMWR: CMPB RO,HC.MPK+P.OPCD(R4) ;COMPARE TO OPCODE IN END PACKET 
19 013522 001145 BNE RSPERR 
\¢ ;LOOK AT STATUS CODE 
14 013524 032764 000037 000032 BIT #ST.MSK,HC.MPK+P.STS(R4) sCHECK FOR STATUS CODE ST.SUC (ZERO) 
i 013532 001004 BNE RSPERW 
4 sCHECK FOR EXPECTED REFERENCE NUMBER 
19 013534 026564 000052 000020 CMP C.REF(RS),HC.MPK+P.CRF(R4) ;CHECK IF COPRECT REF NUMBER 
20 013542 001405 BEQ RSPPTW 
21 013544 RSPERW: ERRDF 33,,ERRO33 
013544 104455 TRAP CSERDF 
013546 000041 WORD 33 
013550 000000 -WORD 0 
013552 011450 «WORD ERRO33 
$8 013554 000704 BR RSPDRP DROP UNIT FROM TESTING 
$¢ sCHECK IF RESPONSE FROM SEND OR RECEIVE DATA COMMAND 
26 013556 032765 000020 000014 RSPPTW: BIT ACT. + me C.FLG(RS) CHECK IF RESPONSE FROM DM PROGRAM 
27 013564 001463 RSPOU: BEQ RSPOU LOOK AT REQUEST NUMBER IF SO 


see 
| 
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101405 . 


104455 
00004 


0000 
011432 
0006 


000306 
007777 


060000 


000034 
000002 
000004 
016574 
000164 
016736 
000122 
170000 


014162 


000016 
000001 


000120 
000020 


000020 


016660 
000044 


000014 
000014 
000014 


000014 


000014 


| yo tg UDA=50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE ek? 
AL SUBROUTINES SECTION 


SEQ 0081 
:MAINTENANCE READ END PACKET RECEIVED, LOOK AT REQUEST FROM DM PROGRAM 
RSPPT2: MOV HC.BF2(R4),R1 :GET REQUEST NUMBER 
BIC #*C<DU.TYP>,R1 sCHECK TYPE 
BEG TIF ZERO, ERROR 
CHP RI RI, gADU,SPC SCHECK IF IN EXPECTED RANGE 
1$: ERRDF RO LERROSZ :BAD REQUEST NUMBER 
TRAP CSERDF 
«WORD 32 
<WORD 0 
ae ERRO32 
BR RSPDRP sDROP UNIT FROM TES. ING 
RSPPT3: MOV HC.MPK+P.BCNT(R4),R3 :GET BYTE COUNT OF CHARACTERS RECEIVED IN R3 
SUB #2,R >(FIRST TWO CHARACTERS ARE TYPE WO 
MOV #0P.SSD,RO {BUILD A SEND DATA COMMAND PACK 
CALL BLDCMD FOR ANSWER TO DM PROGR 
MOV #HC.BF1,RO POINT TO BUFFER IN PACKET 
CALL CLRBUF + AND CLEAR BUFFER 
MOV v RG ~R2 R2 POINTS TO SEND BUFFER 
ADD #HC.BSZ,R4 RG PI seo TO CHARACTERS IN RECEIVE BUFFER 
BIC #DU.TYP,(R4)+ [CLEAR TYPE FIELD IN BUFFER 
SWAB R1 :GET TYPE RIGHT JUSTIFIED 
ASR R1 [TIMES TWO 
ASR R1 
ASR R1 
MOV R1,RO :COPY MESSAGE TYPE TO RU 
CLR “R1 CONTAINS ZERO SEND BYTE CoimT 
CALL @RSPDSP-2(RO) 3CALL REQUESTED ROUTIN 
BNE RSPDRP SROUTINE RETURNS Z CLEAR TO DROP UNIT FROM TESTING 
: 2 SET IF UNIT TO CONTINUE RUNNING 
MOV C.RING(RS) ,R4 'GET RING ADDRESS 
BIT #1,R1 ‘LOOK AT CHARACTER COUNT TO SEND TO DUP PROGRAM 
BEQ 1$ :1F AN ODD COUNT 
INC R1 + INCREASE BY ONE 
1$: MOV R1,HC.CPK+P.BCNT(R4) *PUT CHARACTER COUNT IN COMMAND PACKET 
BPL RSPOUT TIF NEGATIVE BYTE COUNT RETURNED 
BIC #CT.REQ,C.FLG(RS) t DON'T SEND ANY DATA TO UDA 
:SEND COMMAND BACK TO UDA 
RSPOUT: BIC #CT.MSG+CT.STA+CT.TM1+CT. TM2,C.FLG(RS) :CLEAR MESSAGE RECEIVED FLAG 
BIT #CT.REQ,C.FLG(RS) SCHECK WHICH COMMAND TO SE 
BNE RSPOU2 ‘BRANCH IF RESPONSE TO REQUEST 
MOV #OP.RSD,RO :BUILD RECEIVE DATA COMMAND 
CALL BLDCMD 
MOV #HC.BF2,RO :POINT TO MESSAGE BUFFER 
CALL CLR : AND CLEAR IT 
BIS #CT.REQ,C.FLGC(RS) [SET REQUEST BIT 
BR RSPOU3 
RSPOUR: BIC #CT.REQ,C.FLGC(RS) ZCLEAR REQUEST BIT 
CALL SNDCMD :SEND COMMAND TO UDA 
RSPOU4: MOV C.TOT(RS),RO :SET TIMEOUT 


-—--—-— 
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|CZUDECO UDA-5SO DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE 5,1 


GLOBAL SUBROUTINES SECTION 


oe 
56 014026 004737 


57 01 

58 014036 122764 
59 014044 001237 
60 014046 132764 
61 014654 001603 
o¢ 014056 042765 
63 014064 032765 
64 014072 001413 
65 014074 026465 
66 014102 001004 
67 014104 026465 
68 014112 001422 
69 014114 042765 
70 014122 032765 
71 014130 001406 
72 014132 016465 
73 014140 016465 
74 014146 012764 
75 014154 000137 
76 014160 000137 


000040 
017172 
01334 ; 
000201 

000010 


000050 
000200 


000040 
000042 


000200 
000100 


000030 
000037 


000014 
000014 


000046 
000050 


000014 
000014 


000046 
000050 
000006 


RSPERR: 


3$: 
4$: 


MOV R5,R1 
ADD sero :PUT TIME IN CONTROLLER TABLE 


CALL SETT 

JMP_RSPN OW WAIT FOR END PACKET 

EHPB FOP ENDYOP. -GDS,HC .MPK+P, opcb (Ra) SEE IF GET DUST STATUS OPCODE 
i. ote oHC.MPK+P.DFLG(R4) [IF DUST aT eR aaa RUNNING 


: REPORT 
BIC #CT.STA*CT.MSG,C.FLG(RS) | :CLEAR CONTROL BITS 
eit #CT.TM2,C.FLGC(RS) SIF AT SECOND TIMEOUT 
CAP HC.MPK+P.DPI(R4),C.PRI(R5) ;COMPARE PROGRESS INDICATOR 
CMP HC.MPK+P.DP1+2(R4),C.PRI+2(R5) : COMPARE PROGRESS INDICATOR 
BEQ 4$ REPORT ERROR IF NOT CHANGED 
BIC #CT.TM2,C.FLG(RS) CLEAR TIMEOUT 2 FLA 
eit cr. -TM1.C.FLG(R5) TIF AT FIRST TIMEOUT 
MOV HC.MPK+P.DPI(R4),C.PRI(RS) ;:GET COPY OF PROGRESS INDICATOR 
MOV HC.MPK+P.DP1+2(R4) ,C.PRI+2(R5) :GET COPY OF PROGRESS INDICATOR 
MOV ARG. OUNERG. FLG,HC.MCT(R4)  ;GIVE MESSAGE BUFFER BACK TO UDA 


JMP RSPN 
JMP RSPTOE 


SEQ 0082 


‘ems RR 


S 
[CZUDECO UDA=50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE Ss SEQ 0083 


'GLOBAL SUBROUTINES SECTION 


1 RESPONSE REQUEST DISPATCH TABLE 
| g 014164 017308 RSPDSP: QUEST QUESTION 
& 916186 014252 “WORD ts tal {QUESTION WITH DEFAULT ANSWER 
5 014170 014424 < WORD sd ; INFORMATION MESSAGE FOR OPERATOR 
6 014172 014514 - WORD TERM NORMAL TERMINATION 
7 014174 Oeeee -WORD ERRTRM sFATAL ERROR TERMINATION 
| 8 014176 0145 -WORD SPECL 7 SPECIAL 
| 9 000006 DSPS1Z=<.=-RSPDSP>/2 ;LEGAL NUMBERS ARE LOWER THAN THIS 


rm ee -+~-- —-— +e 


| 


‘GLOBAL SUBROUTINES SECTION 


1 
¢ sBYTE OFFSET FROM 
4 START OF BUFFER 
| 5 ; 0 
| 6 Py 
| 7 3 2 
8 ; 
| 2 $ 4 
10 ; 
11 3 6 
12 $ 
13 ; 8 
14 $ 
15 : 10 
16 3 
17 : 12 
18 3 
19 3 14 
20 ; 
21 ; 16 
22 3 
23 5 18 
24 3 
25 : 20 
26 3 
27 3 22 
28 3 
29 : 
30 3 * 
31 5 
32 : . 
33 3 
34 : . 
35 3 
36 3 
37 5 80 
38 3 
| 


‘CZUDECO UDA=50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE Ts, 


sNORMAL DUP RECEIVE DATA BUFFER DESCRIPTION 


fewer es eamowe Deere omareeenaree $+ 


! TYPE ! MESSAGE NUMBER : 
fewer er eee wore cee ne es eee os eeeeas ! 
: DATA BYTES : 
$e we mem ewen nove manos eS eeenoane men + 
: DATA BYTES : 
tees eam ene es eee OHO SD SE EEE aaa ea 
: DATA BYTES : 
Pw wme Bema nesrane2nTonsoas BSoreaeacae $¢ 
: DATA BYTES : 
fers e@eeenon See eeaee.. Se eeerane ot 
: DATA BYTES : 
fame noe ear seen ane nn wee on aeaaoeae $ 
: DATA BYTES : 
ee en © @ oe & 8 we eS Sr oH Om OD OS Ge ee TE OS OS eG oe 
: DATA BYTES : 
$ ee Eee See es SeESoTeneSSem ar aoneaee 5 
: DATA BYTES : 
Poe ten oowasoeweme sess: eeeeezeeeas $ 
: DATA BYTES : 
¢ ew wmemmeenewt er eee reese see emer eam + 
: DATA BYTES : 
Peewee wenaa ca Smee mE 1p WO ED > Go Mem my Cor om 
. DATA BYTES : 
oan Sees eseeer sess eee suses =eeerense + 
¢ eer enrewmeeweeess Se nwa nnm oem ae e ses $ 
: DATA BYTES : 
fom moa osaaas Sea eesaecsoaoce eer eozeae > 


USED TO SELECT ROUTINE 
R4 CONTAINS THIS ADDRESS 





a a 
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‘cruveco UDA=50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE a 


(GLOBAL SUBROUTINES SECTION 


UEWN $0 OONOUSWN $0 OONOUSwh— 


NONQRININIR tt 


sNORMAL DUP SEND DATA BUFFER DESCRIPTION GIVEN IN RESPONSE TO ABOVE PACKET 


BYTE OFFSET FROM 
s START sal attics 


2 
4 
6 
8 
10 
12 
14 
16 
18 


20 
22 


80 


$row emne cs eceoe os eee seen oeensesaeas $+ 


DATA BYTES : 


eo 2 PPS M 2S SSB lH OD SBT SD DS Bsa see Bem 3 


: DATA BYTES : 


+ (Gm Be ee Ge > E> EPS ow ae eR Ss ee ee cm ee ee ee + 


: DATA BYTES : 


+ OSS SSPE T SOTHO OT SSO DE eee senna nwoe Sd 


: DATA BYTES : 


foes veas rer awosoawosnscon eae wom ee ec aoe > 


: DATA BYTES : 


Qcancuccansceaceeesssousesssuces > 


. DATA BYTES : 


¢rmwmerreces een ecco ere seo see eer eeerecens $$ 


: DATA BYTES : 


$wwmazwreaococansosee Seeeeeee = et a we oD > 


: DATA BYTES : 


Pewee wowe rer sascen me seme ame ecm me $ 


: DATA BYTES : 


- ear sees secre neeoc ane: seeoueeaas $ 


: DATA BYTES : 


ere er reese oe saae SC em Emo ae nammea $ 


: “DATA BYTES : 


ee me oe ee co cee om ew ye Om SD a ae oe a ee oo a ce ee en 


: “DATA BYTES : 


fee ene seen ena soe s cen eo ese meanness $ 


fp nem cay GO Cm Se Od Key “ED CE OO Oy Een on EG GY En a GO Ce ob Ee OD Ge an ce oD ee ee oe + 


: DATA BYTES ; 


R2 CONTAINS THIS ADDRESS 


SEQ 0085 


CZUDECO UDA-50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE 1,7 
GLOBAL SUBROUTINES SECTION 


NO VODNOUSWN “SO DONOUSwh— 


Oe rr) 
MM 
AMUNOSNWO 


WUihonon 
No 


MMROM ROPEPPONPONYNPoPrnnNTy 
oe 


Mroenronr 
4YSSe NOUSwW 
= 


SooCoeoSo COCO OoOoOoOoCoOoCoOoOOo 
S 
for 


eee ey — ed oe OY OS SS 


WW 


014666 
000004 


000007 


003344 


SEQ 0086 


sMESSAGE TYPE 1 
ZANSWER QUESTION FOR DUP PROGRAM 


3 INPUT: 


ZOUTPUT: 


QUEST: 


R5 = ADDRESS OF CONTROLLER TABLE 
R4 = POINTER TO DATA IN RECEIVE payed 
R3 = CHARACTER COUNT IN RECEIVE BUFFER 
+: ° penarer TO SEND BUFFER (BUFFER IS CLEARED) 


R1 = COUNT OF CHARACTERS IN SEND BUFFER 
Z SET TO CONTINUE RUNNING DUP PROGRAM 
Z CLEAR TO STOP THE DUP PROGRAM 


CALL GTDRVT 3GET POINTER TO DRIVE TABLE 

A :BUMP POINTER TO SERIAL NUMBER 
»R3 = :GET QUESTION NUMBER 

SBRANCH IF QUESTION NUMBER 0 

SIF NOT, SEE IF QUESTION NUMBER 7 


BEQ QUE7 
ERRDF 100,,ERR100 sANY OTHER NUMBER IS AN ERROR 


TRAP  CSERDF 
.WORD 100 
<WORD 0 
-WORD ERR100 

CL2 ZCLEAR Z TO STOP DUP PROGRAM 

RETURN 

MOV #DATEO,RO ;POINT TO DATE STRING 

INC R1 ;COUNT THE CHARACTERS 

MOVB (RO)+, PUT THEM IN OUTPUT BUFFER 
Q TIL’ A NUL CHARACTER FOUND 


BNE UN 
RETURN ;RETURN jit Z SET 


a nn ee ee 
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1 sMESSAGE TYPE 2 
$ ANSWER QUESTION FOR DUP PROGRAM WITH DEFAULT ANSWER 
5 ; INPUT: 
6 3 RS = ADDRESS OF CONTROLLER TABLE 
7 : R4 = POINTER TO DATA IN RECEIVE BUFFER 
8 : R3 = CHARACTER COUNT IN RECEIVE BUFFER 
9 : R2 = POINTER TO SEND BUFFER (BUFFER IS CLEARED) 
10 3 Ri = ZERO 
11 sOUTPUT: 
12 $ R1 = COUNT OF CHARACTERS IN SEND BUFFER 
13 3 Z SET TO CONTINUE RUNNING DUP PROGRAM 
\ : Z CLEAR TO STOP THE DUP PROGRAM 
16 014252 004737 014666 DQUEST: CALL GTDRVT 3GET DRIVE TABLE ADDRESS INTO RO 
17 014256 01440 MOV -(R4), sGET QUESTION NUMBER 
18 014260 020327 000006 CMP R3,4DQUESZ 
19 014264 10103 BHI DQUEX 
20 014266 00630 ASL R3 
21 014270 000173 014274 JMP @DQUEJP(R3) 
22 014274 01436 DQUEJP: . D DQUEX ; 0 (NOT USED) 
23 014276 014312 eWORD DQUNIT : 1 ENTER UNIT NUMBER TO FORMAT 
24 014300 014360 ~WORD DQUEX : 2 (NOT USED) 
25 014302 014360 -WORD DQUEX ; 3. (NOT USED) 
26 014304 14364 ~WORD DOQRFMT : 4 USE EXISTING BAD SECTOR INFORMATION 
27 014306 014404 eWORD DOQRSTR : 5 DOWN-LINE LOAD BAD SECTOR BLOCK INFORMATION 
28 014310 014414 ~WORD DQCONT : 6 CONTINUE IF BAD BLOCK INFO INACCESSIBLE 
34 DQUESZ=<<.=DQUEJP>/2>-1 
4 sENTER UNIT NUMBER TO FORMAT 
33 014312 DQUNIT: PUSH R5 
014312 910546 MOV R5,-(SP) 
34 014314 005004 CLR R4 
35 014316 011003 MOV (RO),R3 3GET DRIVE NUMBER 
36 014320 ASSUME D.DRV EQ 0 
37 014320 012700 000012 MOV #10.,R0 RADIX 10. 
38 014324 004737 016334 DQUNL1: CALL DIVIDE 
39 014330 PUSH 
014330 010546 MOV R5S,-(SP) 
40 014332 005201 INC R1 
41 014334 005703 TST R3 
42 014336 001372 BNE DQUNL1 
43 014340 010100 MOV R1,R0 
44 014342 DOUNL2: POP R5 
014342 012605 MOV (SP)+,R5 
45 014344 062705 000060 ADD #°0,R5 
46 014350 110522 MOVB R5,(R2)+ 
47 014352 005300 DE 
48 014354 001372 BNE DQUNL2 
49 014356 POP R5 
014356 012605 MOV (SP)+,R5 
50 014360 264 DQUEX: SEZ 
3) 014362 000207 RETURN 
8 014364 032737 000003 003230 DORFMT: BIT #SO.FMT,MODE 


SEQ 0087 






CZUDECO UDA-50 DI 
GLOBAL SUBROUTINE 


S 
—=s 


T 


C 
0 
¢ 000131 
6 


bt thet Abb Amt 
WhO 0OnoO 


7 
0 
¢ 000116 
6 





DQYES: 


000010 003230 DQRSTR: 


DQCONT: 
DONO: 


BEQ DONO 

i #'y,(R2) 

BR DQUEX 

BIT #SO.STR,MODE 
BNE DQYES 

MOVE #'°N,(R2) 
INC R1 

BR DQUEX 


eae sanmimnmncienaedly = 
— MACRO V04.00 30-AUG-82 12:58:39 PAGE S91 


a eeeEeEeeeeEeEeEeEeEeEeEeEeEeEEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEOEEEEEeeee 
-_ — 











; —s 
aaa UDA=50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE 80 SEQ 0089 
GLOBAL SUBROUTINES SECTION 


} sMESSAGE TYPE 3 
? sPRINT INFORMATION FROM DUP PROGRAM 
5 : INPUT: 
6 3 RS = POINTER 1 CONTROLLER TABLE 
7 3 Ra - POINTER TO DATA IN RECEIVE gurFeR 
8 : R3 = CHAR ACTER COUNT IN RECEIVE BUFFER 
B ; 7 - coiares TO SEND BUFFER (BUFFER IS CLEARED) 
11 s OUTPUT: 
12 R1 = BIT 15 SET TO PREVENT SENDING DATA TO DUP PROGRAM 
iz ; Z SET TO CONTINUE RUNNING DUP PROGRAM 
15 014424 016400 177776 INFO: MOV -2(R4),RO ;GET MESSAGE NUMBER 
16 014430 001417 BEQ INFOX 31F ZERO, IGNORE IT 
17 014432 020027 000100 CMP RO,#100 SIF OCTAL 100 
18 014436 001420 BEQ INFOE : PRINT ERROR MESSAGE 
19 014440 005737 002220 TST UFREEZ 
20 014444 001007 BNE INFOP 
21 014446 005237 002220 INC UFREEZ 
22 014452 004737 014666 CALL GTDRVT 
23 014456 010002 MOV RO, 
24 014460 004737 014712 CALL HEADER 
25 014464 004737 014632 INFOP: CALL MESG sPRINT THE MESSAGE 
$$ berth 012701 100000 INFOX: MOV #BIT15,R1 ;RETURN A NEGATIVE BYTE COUNT 
$8 014476 000207 RETURN sRETURN WITH Z SET 
30 014500 INFOE: ERRDF 101,,ERR101 sANSWER WAS REJECTED BY DUP PROGRAM 
014500 104455 TRAP CSERDF 
014502 000145 «WORD 101 
014504 000000 -WORD 0 
014506 011526 -WORD ERR101 
31 014510 000244 CLZ sRETURN WITH Z CLEAR TO STOP DUP PROGRAM 
32 014512 000207 RETURN 
| 


—) 
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a 1 ;MESSAGE TYPE 4 
5 TERMINATION MESSAGE 
5 ; INPUT: 
é : RS = POINTER TO CONTROLLER TABLE 
7 : R& = POINTER TO DATA IN RECEIVE BUFFER 
8 : R3 = CHARACTER COUNT IN RECEIVE BUFFER 
h ; Re - - POINTER TO SEND BUFFER (BUFFER IS CLEARED) 
11 :OUTPUT: 
le 27 CLEAR TO TERMINATE DUP PROGRAM 
14 014514 004737 014424 TERM: CALL INFO ;PRINT THE MESSAGE 
15 014520 000244 CL 
16 014522 000207 RETURN ;RETURN Z CLEAR TO TERMINATE DUP PROGRAM 


7 
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J ;MESSAGE TYPE 5 

; TERROR TERMINATION MESSAGE 

= ; INPUT: 

6 : RS = POINTER 10 CONTROLLER TABLE 

7 : R& = POINTER TO DATA IN RECEIVE BUFFER 

8 : R3 = CHARACTER COUNT IN RECEIVE BUFFER 

2 ; Re - = POINTER TO SEND BUFFER (BUFFER IS CLEARED) 
11 ZOUTPUT: 

le 2 CLEAR TO TERMINATE DUP P".uGRAM 

14 014524 004737 014424 ERRTRM: CALL INFO 

15 014530 000244 

16 014532 000207 RETURN :RETURN Z CLEAR TO TERMINATE DUP PROGRAM 


SEQ 0091 


ee ; 
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2 
4 
5 
6 
4 
8 
9 
10 
11 
12 
13 
14 014534 
15 014540 
16 014542 
18 014544 
20 014544 
014544 
21 014546 
014546 
014552 
23 014554 
24 014562 
25 014566 
26 014572 
014572 
014574 
27 014576 
014576 
28 014600 
29 014602 
30 014604 
31 014610 
32 
33 014612 
34 014614 
35 014622 
36 014626 
37 014630 


023714 


012700 


So 

“== 
4 mre 
ANNs 
coy 

WN 


—_~ -«—— OOO— 
= 
ror 


003226 


003254 


177777 
001000 
002226 


003226 


002226 
000006 


003226 


000002 





;MESSAGE TYPE 6 
?SPECIAL TYPE = READ FCT BLOCK FROM FILE 


INPUT: 


ZOUTPUT: 


RS = POINTER TO eee TABLE 

R4 = POINTER TO DATA IN RECEIVE aed 3 

R3 = CHARACTER COUNT IN RECEIVE BUFFER 

a ° : wae TO SEND BUFFER (BUFFER IS CLEARED) 


Z SET TO SEND DATA TO PROGRAM 


SPECL: CMP FCTNUM,(R4) ;SEE IF DESIRED pBhock IS IN MEMORY 
BEQ SPECLX : IF SO, SEND TO DUP PROGRAM 
BLT SPECLR : IF LOWERED NUMBERED BLOCK IN MEMORY, 
oaiad : GO READ NEXT BLOCK 
“ CLOSE  ;OTHERWISE, START READING FROM BEGINWING AGAIN eal 
OPEN #FNAME2 
MOV 
TRAP 
MOV #=1,FCTNUM 
SPECLR: MOV #512..R3  ;GET BYTE COUNT IN A BLOCK 
MOV eFC Tau R1 POINT TO STORAGE AREA 
SPECLL: GETBYTE (R1)# :READ THE FILE 
nove 
BNCOMPLETE SPECLE :PRINT ERROR IF "9 MORE BYTES IN, FILE 
DEC RS RS 5 cit sCOUNT THE BYTES 
INC SC IMUM :KEEP COUNT OF BLOCK IN MEMORY 
BR SPECL 
SPECLE: INC (R2) - TELL DUP PROGRAM DATA NOT AVAILABLE 
SPECLX: MOV #FCTBUF,2(R2) ADDRESS OF DATA IN OUTPUT BUFFER 
MOV #6,R1 ZSEND 3 iokDs TO DUP PROGRAM 


SE 
RETURN 


sRETURN WITH Z SET TO SEND DATA 


CS$CLOS 


#FNAME2 RO 
CSOPEN 


C$GETB 
RO, (R1)+ 


SPECLE 


SEQ 0092 | 


TO DUP PROGRAM 


a a — ee 
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} zPRINT A MESSAGE IN THE RECEIVE BUFFER FROM THE DUP PROGRAM 

3 3 INPUT: 

4 3 R4 = POINTER TO DATA IN RECEIVE BUFFER 

2 ‘ oUTPUT R3 = CHARACTER COUNT IN RECEIVE BUFFER 

4 ; RS - st bla TO CHARACTER AFTER MESSAGE IN RECEIVE BUFFER 

o $ R1 = BIT 15 SET TO PREVENT SENDING DATA TO DUP PROGRAM 

10 3 RO = CONTENTS DESTROYED 

i} Z SET TO CONTINUE RUNNING DUP PROGRAM 

13 014632 MESG: PRINT #CR 
014632 112700 000015 MOVB #CR,RO 
014636 004737 016056 CALL CPNT 

i 014642 112400 1$: MOVB (R4)+,R0 sPRINT CHARACTERS FROM DUP PROGRAM 

15 014644 001405 BEC 2$ : DISCARDING LF AND NULL CHARACTERS 

16 014646 020027 000012 CMP RO,#12 

17 014652 001402 BEQ 2$ 

18 014654 PRINT RO 
014654 004737 016056 CALL CPNT 

19 014660 005303 2$: DEC R3 ;COUNT THE CHARACTERS 

20 014662 003367 BGT 1$ 

21 014664 000207 RETURN 








a i 
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} sGTDRVT 
? 3GET DRIVE TABLE ADDRESS FROM CONTROLLER TABLE 
3 ; INPUTS: 
6 R5 = CONTROLLER TABLE ADDRESS 
7 SOUTPUTS: 
8 3 RO - ea OF FIRST DRIVE — AVAILABLE FOR TESTING 
16 : (WITH DT.AVL BIT CLEAR 
11 014666 GTDRVT: PUSH R5 
014666 010546 MOV R5,-(SP) 
\¢ gee 062705 000020 ADD #C. DRO, R5 
13 014674 012500 GTDRVL: MOV (R5)+,RO 
14 014676 016037 000002 002074 MOV D.UNIT(RO) .LSLU 
15 014704 ASSUME DT-AVL EQ BIT15 
16 014704 100773 BMI GTDRVL 
17 014706 POP R5 
014706 012605 MOV (SP)+,R5 
18 014710 000207 RETURN 





ne apa 
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} ;HEADER 
3 ;PRINT A HEADER IN FRONT OF EACH MESSAGE FROM | DUP PROGRAM. 
4 UDA ADDRESS 1S PRINTED IF MORE THAN ONE UDA IS IN HARDWARE P-TABLE. 
i iA RUNTIME IS PRINTED IF A CLOCK IS BEING used TO TIME PROGRAM EXECUTION. 
? INPUT: 
8 : RS = POINTER TO CONTROLLER TABLE 
93 ;OUTPUT: 
10 : RO = POINTER TO DRIVE TABLE 
1 : PRINTED MESSAGE 
13 Q14712 020737 000001 002012 HEADER: CMP #1,LSUNIT :1F MORE THAN ONE UNIT BEING TESTED 
15 014722 PNTF MESSG,D.UNIT(R2), (RS), (R2) :PRINT UDA ADDRESS 
014722 011246 MOV (R2), =~($P) 
014724 011546 MOV (R5),<< 
014726 016246 000002 MOV D. iwiTtne). -(SP) 
014732 004137 016230 JSR R1,LPNTF 
014736 004015 -WORD MESSG 
014740 000006 -WORD PNT.CT 
16 014742 ASSUME C.UADR EQ 0 
17 014742 ASSUME D.DRV EQ 0 
18 014742 000407 BR 2$ 
19 014744 005737 003232 1$: TST KW.CSR z1F NO CLOCK BEING USED 
20 014750 001406 BEQ 3$ ‘BYPASS RUNTIME MESSAGE 
21 014752 PRINT #CR 
014752 112700 000015 MOVB #CR,RO 
014756 004737 016056 CALL CPNT 
22 014762 004737 020176 2$: CALL RNTIME :PRINT RUNTIME IF A CLOCK IN USE 
23 014766 000207 3$: RETURN 





me ae C—O Ce ee 
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| 
| 


Zs OSTRNG 
? sFORMAT OF THE ASCIZ STRING IS AS FOLLOWS: 
2 ; CHARACTERS ENCLOSED IN QUOTES ARE TO BE PRINTED AS THEY ARE. 
4 ZOTHERWISE CODE IS A SINGLE LETTER FOLLOWED BY AN OPTIONAL DECIMAL 
9 ; ON- tao OCTAL NUMBER. N aie at teh SIZE r BINARY NUMBER oy 
10 5 IN PARAMETER IN BITS. MAY BE IN RANGE 1 TO 32. IF N>16, TWO PARAMETER 
\) HY words NAME USED, OTHERWISE ONLY ONE WORD. LEADING ZEROS ARE PRINTED. 
13 ; DN = PRINT ee eate ww Ky NUMBER FROM N BIT PARAMETER. Prd ZEROS 
14 ; ARE NOT PRINTED. A 16 BIT NUMBER EQUAL TO zen wit LL PR *0"*. 
15 ; HN- PRINT HEX NUMBER FROM PARAMETER OF N BITS. IF N>16 Two P ARAMET TERS 
16 3 ARE use OTHERWISE ONLY ONE PARAMETER. PEADING ZEROS ARE PRINTED. 
17 : SN = PRINT N SPACES. N ASSUMED TO BE 
18 : NN = START NEW LINE (CRLF SEQUENCE). N ASSUMED TO BE 1. 
19 : AN = PRINT N ASCH CHARACTERS FROM PARAMETERS, N N ASSUMED TO BE 1. 
20 s N/2 PARAMETER WORDS USED. 
$3 : RN = EXECUTE ROUTINE #N. N MUST BE GIVEN AND DEFINED IN HOST PROGRAM. 
23 3A NULL CHARACTER MEANS END OF MESSAGE. A NULL AS FIRST CHARACTER IN STRING 
$e sMUST BE IGNORED. 
$$ sOUTPUT A MESSAGE ACCORDING TO A FORMAT STRING 
28 ; INPUTS: 
29 : R2 = ADDRESS OF START OF FORMAT STRING 
30 R4 = ADDRESS OF PARAMETERS 
31 S OUTPUT S: 
3 : R2 AND R4 UPDATED TO END OF STRING AND PARAMETERS 
34 014770 112201 OSTRNG: MOVB (R2Z)+,R1 :GET CONTROL CHARACTER 
35 014772 001421 BEQ OSTRE SEXIT IF NULL CHARACTER 
36 014774 012700 015270 MOV #ERRC,RO GET POINTER TO CHARACTER TABLE 
37 015000 120110 NCCNS: CMPB R1,(RO) * COMPARE CHARACTER WITH TABLE ENTRY 
38 015002 001407 BEQ NCONF *BRANCH IF MATCH FOUND 
39 015004 105720 TSTB (RO)+ : INCREMENT POINTER 
40 015006 001374 BNE NCONS sCONTINUE SEARCH IF NOT a OF TABLE 
41 015010 PNTF ERRME1 sREPORT BAD CONTROL CHARACTER 
015010 004137 016230 JSR R1,LPNTF 
015014 003726 ~WORD ER RME1 
015016 000000 “WORD PNT.CT 
42 015020 000406 BR OSTRE 
43 015022 162700 015270 NCONF: SUB #ERRC,RO 3GET INCREMENT INTO TABLE 
44 015026 006300 ASL R ; 0 T 
45 015030 004770 015302 CALL @ERRD(RO) zDISPATCH TO PRINT ROUTINE 
46 015034 000755 BR OSTRNG :GET NEXT 
47 015036 000207 OSTRE: RETURN 


czweco 


1 
: 015040 
4 015042 
5 015046 
6 015050 
015050 
7 015654 
8 015056 
9 
10 
11 
\¢ 015060 
13 015064 
015064 
015066 
14 015072 
15 015074 
16 015076 
17 015102 
18 015104 
19 015106 
20 
21 
22 
23 015110 
24 015114 
$2 015120 
6 
27 
28 
29 


012701 
004737 
000207 
012701 
004737 
000207 


000042 


016056 
015536 


016056 


000001 


000012 
015614 


000020 
015614 
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CONTROL CHARACTER WAS A QUOTE. PRINT ALL CHARACTERS TO THE NEXT QUOTE. 
CON.QU: MOVB (R2) + RO :GET CHARACTER 
CMPB_RO,#'” 


somes IF ENDING QUOTE 
BEQ CON.OX IF GO GET NEXT CONTROL CHARACTER 
PRINT RO PRINT’ THE CHARACTER 


CALL CPNT 
BR CON.QU ;CONTINUE PRINTING 

CON.QX: RETURN 

sCONTROL CHARACTER WAS AN A. PRINT ASCII CHARACTERS FROM PARAMETERS. 

CON.A: CALL GETCNT sGET COUNT OF CHARACTERS 

CON.A1: PRINT (R4)+ SPRINT THE CHARACTER 
MOVB (R4)+,RO 
CALL CPNT 


COUNT THE CHARACTER 


DEC R1 Ss 
BNE CON.A1 PRINT UNTIL COUNT REACHES ZERO 


BIT #1,R4 ZCHECK IF R4 NOW ODD 

BEQ CON.A2 

INC R4 zIF SO, INCREMENT TO NEXT EVEN ADDRESS 
CON.A2: RETURN NOW GET NEXT CONTROL CHARACTER 


CONTROL CHARACTER WAS A D. PRINT DECIMAL NUMBER. 
CON.D: MOV #10.,R1 LOAD RADIX 
CALL _PNTNUM PRINT NUMBER 
TURN SNOW GET NEXT CONTROL CHARACTER 
CONTROL CHARACTER WAS AN H. PRINT HEX NUMBER. 
CON.H: MOV ee LOAD RADIX 


CALL_PNTNUM PRINT NUMBER 
RETURN NOW GET NEXT CONTROL CHARACTER 


——- ey 


o> a Ct ee ee . — 


1 
: 015134 
4 015140 
5 015144 
6 
7 
8 
9 012188 
10 01515 
015152 
015156 
11 015162 
12 015164 
13 015166 
14 
15 
16 
17 015170 
18 015174 
19 015200 
20 015202 
21 015204 
22 015210 
23 015212 
015212 
g125i8 
24 15982 
015222 
25 015224 
26 
27 
28 
29 015226 
30 015232 
015232 
015236 
31 015242 
32 015244 
33 015246 


912701 


37 
003726 
000000 


012601 
000207 
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015536 
000010 


015246 


016230 


015536 


000040 
016056 


SEQ 0098 


CONTROL CHARACTER WAS AN 0. PRINT OCTAL NUMBER. 


CON.O: MOV #8.,R1 ZLOAD RADIX 
CALL PNTNUM [PRINT NUMBER 
‘NOW GET NEXT CONTROL CHARACTER 


sCONTROL CHARACTER WAS AN N. PRINT NEW LINE SEQUENCE. 


CON.N: CALL _GETCNT 3GET COUNT 

CON.N1: PRINT #CR zPRINT NEW LINE SEQUENCE 
MOVB #CR,RO 
CALL CPNT 


sCOUNT THE SEQUENCES 
sNOW GET NEXT CONTROL CHARACTER 
sCONTROL CHARACTER WAS AN R. CALL A PRE-PROGRAMMED ROUTINE. 


CON.R: CALL GETCNT GET ROUTINE NUMBER 
CMP Sy ae 7CHECK IF DEFINED ROUTINE NUMBER 


DEC R1 
BNE CON.N1 
RETURN 


BHI C 
ADD R1,R1 :DOUBLE COUNT TO GET WORD INDEX 
CALL @ERRRTB-2(R1) CALL ROUT INE 
N OW GET NEXT CONTROL CHARACTER 
CON.R1: PNTF ERRME1 eREPORT BAD MESSAGE STRING 
JSR R1,LPNTF 
.WORD ERRME1 
“WORD PNT.CT 
POP R1 sFIX THE STACK 
MOV (SP)+,R1 
RETURN 


CONTROL CHARACTER WAS AN S. PRINT SPACES. 


CON.S: CALL GETCNT GET COUNT 
CON.S1: PRINT <#* > PRINT A SPACE 
MOVB #° ,RO 
CALL CPNT 
DEC R1 COUNT THE SPACES 
BNE CON.S1 


RETURN sNOW GET NEXT CONTROL CHARACTER 
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sERROR ROUTINE DISPATCH TABLE 


013538 015322 ERRRTB: .WORD CALRE sNOT USED 
015252 015322 eWORD CALRE NOT USED 
015254 Oi 2366 eWORD CALRE NOT USED 
015256 0153 -WORD CALR4 PRINT BASIC LINE WITHOUT ADDRESS 
015260 015410 ~WORD CALRS PRINT BASIC LINE WITH UDA ADDRESS 
015262 015466 ~WORD CALR6 sCALL ALTERNATE PRINT ST RING. IN PDP=11 _MEMOR 
015264 015502 -WORD CALR7 PRINT “REPLACE UDA MODULE M7161 OR M7485" 
015266 015520 -WORD CALR8 PRINT ‘* UDASA CONTAINS XXXXXX"" 
: -WORD_ CALR9 ;REPRINT LAST NUMBER 
000010 ERRRSZ=<.-ERRRTB>/2 


sBUILD os TABLES 
: FIRST CONTAINING CONTROL CHARACTERS 
Q SECOND CONTAINING ROUTINE ADDRESSES 


-MACRO BUILD 
ENT 


NAVUSWN 0 OONOUSWN “CO OONOUSWwhN— 


MONINIDINIDINID) 2 3 3 OO St Se 


-ENDM 


rte 


esses ; : 
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1 sHERE IS FIRST TABLE 
5 MACRO ENTRY ARG1 ,ARG2 
5 “BYTE _""ARG1 
6 “NLIST 
g -ENDM 
9 015270 ERRC: BUILD 
015270 = 042 -BYTE ° 
015271 = 101 “BYTE 'A 
015272 = 104 “BYTE 'D 
015273 = 110 “BYTE 'H 
015274 = 117 “BYTE ‘0 
015275 «116 “BYTE 'N 
015276 = 122 “BYTE 'R 
015277 123 “BYTE 'S 
10 015300 000 “BYTE 0 ;FOLLOW WITH A NULL BYTE 
i -EVEN 
13 sHERE IS SECOND TABLE 
15 .MACRO ENTRY _ARG1,ARG2 
16 «LIS 
17 “WORD ARG2 
18 “NLIST 
19 ~ENDM 
21 015302 ERRD: BUILD 
015302 015040 -WORD CON. QU 
015304 015060 “WORD CON.A 
015306 015110 -WORD CON.D 
015310 015122 “WORD CON.H 
015312 015134 “WORD CON.O 
015314 015146 “WORD CON.N 
015316 015170 “WORD CON.R 
015320 015226 -WORD CON.S 








RE ares we ee are 
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|GLOBAL SUBROUTINES SECTION 
| 1 PRE-PROGRAMMED ROUTINES 1, 2 AND 3 
¢ [NOT USED = PRINTS ERROR MESSAGE 
| i 015322 CALRE: PNTF ERRME1 SPRINT ERROR MESSAGE 
015322 004137 016230 JSR R1,LPNTF 
015326 003726 “WORD ERRME1 
015330 000000 “WORD PNT.CT 
5 015332 000207 RETURN 


aa 


oo 
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1 3PRE=PROGRAMMED ROUTINE 4 

§ SPRINT BASIC LINE FOR HOST PROGRAM ERROR WITHOUT UDA ADDRESS 
? sTHEN SWITCH TO EXTENDED FORMAT 

5 


015334 CALR4: PNTB BASLN,#BASNO,#BAS ,#BAS , #BAS 
015334 012746 004211 MOV #BAS,-(SP) 
015340 012746 004211 MOV #BAS,-(SP) 
015344 012746 004211 MOV #BAS,-(SP) 
015350 012746 004136 MOV #BASNO,-(SP) 
015354 004137 016240 JSR_R1,LPNTB 
015360 004212 WORD BASLN 
015362 000010 WORD PNT.CT 

6 015364 004737 020176 CALL _RNTIME 

7 015370 PRINT #CR 
015370 112700 000015 MOVB #CR,RO 
015374 004737 016056 CALL CPNT 

8 015400 012737 016156 003246 MOV #PX,PTYPE 

9 015406 000207 RETURN 
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CZUDECO UDA-50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE 94 SEQ 0103 
GLOBAL SUBROUTINES SECTION 


1 3PRE=PROGRAMMED ROUTINE 5 

§ SPRINT BASIC LINE FOR HOST PROGRAM ERROR WITH UDA ADDRESS 
i sTHEN SWITCH TO EXTENDED FORMAT 

5 


015410 CALRS: PNTB BASLN,#BASNO,#BASL2,(R5) ,#BAS ,ABAS 
015410 012746 004211 MOV #BAS,-(SP) 
015414 012746 004211 MOV #BAS,-(SP) 
015420 011546 MOV (R5),=(SP) 
015422 012746 004155 MOV #BASL2,-(SP) 
015426 012746 004136 MOV #BASNO,-(SP) 
015432 004137 016240 JSR_R1,LPNTB 
015436 004212 -WORD BASLN 
015440 000012 «WORD PNT.CT 

6 015442 004737 020176 CALL_RNTIME 

7 015446 PRINT #CR 
015446 112700 000015 MOVB #CR,RO 
015452 004737 016056 CALL CPNT 

8 015456 012737 016156 003246 MOV #PX,PTYPE 

9 015464 000207 RETURN 





~ a 


8 
“CZUDECO UDA=50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE 95 SEQ 0104 
(GLOBAL SUBROUTINES SECTION 


;PRE=PROGRAMMED ROUTINE 6 
[CALL ALTERNATE PRINT ROUTINE IN PDP=11 MEMORY 


015466 CALR6: PUSH R2 sSAVE CURRENT STRING ery 

015466 010246 V R2,-(SP) 
015470 012402 MOV (R4)+,R2 :GET NEW STRING POINTER 

015472 004737 014770 CALL _OSTRNG OUTPUT USING THIS STRING 

015476 POP R2 ‘CET OLD POINTER BACK 

015476 012602 MOV (SP)+,R2 
015500 000207 RETURN NOW CONTINUE THE OLD STRING 


oOo now Sw 


A 


CZUDECO UDA-50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE 86° SEQ 0105 
GLOBAL SUBROUTINES SECTION 





3PRE=PROGRAMMED ROUTINE 7 
SPRINT "REPLACE UDA MODULE M7161" 


CALR7: PUSH R2 


MOV #XFRU,R2 
CALL_OSTRNG 
POP R2 


MOV R2,-(SP) 


MOV (SP)+,R2 


tt OOO 
oRRORWN 


RETURN 





--—— Sn A ent 


CZUDECO UDA=50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE 5,9 SEQ 0106 
GLOBAL SUBROUTINES SECTION 


1 ; PRE=PROGRAMME D ROUTINE 8 
§ :PRINT UDASA CONTAINS XXXXXX"' 
4 015520 CALR8: PUSH R2 
015520 010246 MOV R2,-(SP) 
5 015522 012702 010502 MOV #XSA,R2 
6 015526 004737 014770 CALL_OSTRNG 
7 01553 POP R2 
015532 012602 MOV (SP)+,R2 
8 015534 000207 RETURN 


ee a 


9 
roast UDA=50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE 38 
GLOBAL SUBROUTINES SECTION 





1 : REPRINT LAST NUMBER 
¢ : R4 => TABLE 
sCALR9: TST =(R4) 
4 : RETURN 


SEQ 0107 


; we 
CZUDECO UDA-50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE §9 SEQ 0108 
GLOBAL SUBROUTINES SECTION 





sGETCNT 


:GET COUNT IN NEXT CHARACTERS OF STRING POINTED TO BY R2. 
ere IN DECIMAL. IF NO NUMBER, RETURN A 


4 

5 

6 : 

7 3 INPUTS: 

8 ; R2 = POINTER TO ASCII STRING 

9 ; OUTPUTS: 

10 ; R1 = NUMBER READ OR A ONE 

: R2 = POINTING TO CHARACTER AFTER NUMBER 

13 015536 GETCNT: PUSH RO 

015536 010046 MOV RO,-(SP) 

14 015540 005001 CLR RI START WITH ZERO COUNT 

15 015542 121227 000060 GETCNX: CMPB (R2),#°0 CHECK IF CHARACTER A DIGIT 
16 015546 103415 BLO GETCDN sBRANCH IF LOWER THAN ZERO 
17 015550 121227 000071 CMPB (R2),#°9 

18 015554 101012 BHI GETCDN BRANCH IF HIGHER THAN NINE 
19 015556 006301 ASL R1 sMULTIPLY NUMBER BY 10 
20 015560 010100 MOV R1,R0 ; SAVE 2N 
21 015562 006301 ASL R1 : COMFUTE 4N 
22 015564 006301 ASL R1 3 COMPUT 
23 012288 060001 ADD RO,R1 ;_8N + 2N = 10N 
24 015570 112200 MOVB (R2)+,RO sGET DIGIT FROM STING 
25 015572 162700 000060 SUB #°0,R0 3GET RID OF ASCII 
26 015576 060001 ADD RO,R1 zADD_TO NUMBE 
$f 012608 000760 BR _GETCNX :GO_ TO NEXT CHARACTER 

8 015602 005701 GETCDN: TST R1 CHECK IF NUMBER IS ZERO 
29 015604 001001 BNE GETCXX :1F ZERO, CHANGE 

30 015606 005201 INC R1 : TO DEFAULT OF ONE 

31 015610 GETCXX: POP RO 

015610 012600 MOV (SP)+,RO 

32 015612 000207 RETURN 


ce ce a mn a ee eC 


a a 
———, 


ae a ee 
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C7UDECO UDA=50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE 00 SEQ 0109 
GLOBAL SUBROUTINES SECTION 


| 1 3 PNTNUM 
| 5 :PRINT A NUMBER 
5 ; INPUTS: 
é : R1 = RADIX OF NUMBER 
7 : R2 = ASCII STRING TO COUNT OF BITS IN NUMBER 
: Seri = POINTER TO NUMBER (LOW WORD) 
10 : NUMBER IS PRINTED. LEADING ZEROS ARE PRINTED EXCEPT FOR 
1 : DECIMAL NUMBERS. 
12 : RO = CONTENTS DESTROYED 
14 015614 010100 PNTNUM: MOV R1,RO sSAVE RADIX 
15 015616 004737 015536 CALL GETCNT [GET COUNT OF BITS 
16 015622 PNTNUS: PUSH <R2,R3,R5> 
015622 010246 MOV R2,-(SP) 
015624 010346 MOV R3.-(SP) 
015626 010546 MOV R5.-(SP) 
17 015630 012403 MOV (R4)+,R3 sGET ONE PARAMETER WORD 
18 015632 005005 CLR RS [CLEAR STORAGE FOR OTHER 
19 015634 020127 000020 CMP R1,416. [MORE THAN 16 BITS IN NUMBER? 
20 015640 003401 BLE 1$ 
21 015642 012405 MOV (R4)+,R5 sYES, GET SECOND PARAMETER WORD 
22 015644 1$: PUSH R4 
015644 010446 MOV R4,-(SP) 
23 015646 010504 MOV R5S_R4 ;PUT HIGH WORD ul 
34 015650 912708 000020 MOV #16. .R2 ‘COMPUTE BITS NOT WANTED 
5 015654 16010 SUB R1,R2 iB SUBTRACTING Bits TO USE 
26 015656 002002 BGE : FROM 
27 015660 062702 000020 ADD #16. .R2 TIF NEGATIVE. ADD 16 FOR FIRST WORD 
28 015664 001414 2$: BEQ 6$ TIF ZERO, NO BITS NEED BE CLEARED 
29 015666 012705 100000 MOV #B1T15,R5 *START MASK WITH SIGN BIT SET 
30 015672 005302 3$: DEC R2 [COUNT BITS IN MASK 
31 015674 001402 BE 4$ 
32 015676 006205 ASR RS :SHIFT MORE BITS TO RIGHT 
33 015700 000774 BR 3$ 
34 015702 020127 000020 4$: CMP R1,#16. ;MORE THAN 16 BITS IN NUMBER? 
35 015706 003402 BLE 
36 015710 040504 » BIC R5,R4 sYES, CLEAR IN HIGH WORD 
37 015712 000401 BR 6$ 
38 015714 040503 5$: BIC RS.R3 NO, CLEAR IN LOW WORD 
39 015716 004737 016334 6$: CALL DIVIDE [DIVIDE BY RADIX IN RO 
40 015722 PUSH R5 [PUSH REMAINDER ON STACK 
015722 010546 MOV R5,-(SP) 
41 015724 905202 INC R2 :COUNT DIGITS ON STACK 
42 015726 00570 TST R3 *CHECK IF QUOTIENT IS ZERO 
43 015730 001372 BNE 6$ 
44 015732 005704 TST R4 
45 015734 001370 BNE 6$ 











G9 
TTER MACRO V04.00 30-AUG-82 12:58:39 PAGE 101 SEQ 0110 


ron 


| 


‘CZUDECO UDA=50 DISK FORMA 
‘GLOBAL SUBROUTINES SECTION 

1 015736 020027 006912 CMP RO,#10. s1F RADIX IS DECIMAL 

‘ 015742 001423 BEQ 10$ : JUST GO PRINT DIGITS ON STACK 
015744 010103 MOV R1,R3 SOTHERWISE COMPUTE NUMBER OF LEADING ZEROS 

4 015746 166700 000014 SUB #12. ,RO :DIVIDEND IS BITS IN NUMBER 

5 015752 003002 BGT 7$ ‘DIVISOR IS BITS PER DIGIT PRINTED 

6 015754 012700 000003 MOV #3,RO : (3 OR 4) 

7 015760 004737 016334 7$: CALL DIVIDE 

8 015764 005705 TST RS :1F REMAINDER NOT ZERO 

9 015766 001401 BEQ 8$ S INCREMENT QUOTIENT 

10 015770 005203 INC R3 

11 015772 160203 8$: SUB R2,R3 :SUBTRACT DIGITS ON STACK 

12 015774 001406 BEQ 10$ =NO LEADING ZEROS IF ZERO 

13 015776 9$: PRINT #°0 ‘PRINT A ZERO 
015776 112700 000060 MOVE #°0,RO 
016002 004737 016056 CALL CPNT 

4 016006 005303 DEC R3 

; 016010 001372 BNE 9$ sREPEAT UNTIL COUNT REACHES ZERO 

7 016012 10$: POP RS :GET CHACACTER FROM STACK 
016012 012605 MOV (SP)+,R5 

8 016014 062705 000060 ADD #°0.R5 ZCNVERT TO ASCII DIGIT 

9 016020 020527 000071 CMP RS,#°9 ZIF GREATER THAN A 9 

0 016024 003402 BLE 11$ : CONVERT TO A OR HIGHER 

1 016026 062705 000007 ADD #<'A=-"9=-1>,R5 : FOR HEX DIGIT 

2 016032 11$: PRINT RS [PRINT THE CHARACTER 
016032 110500 MOVB R5,RO 
016034 004737 016056 CALL CPNT 
deine 003 308 DEC R sREPEAT FOR ALL DIGITS 
016042 00136 BNE 10$ : ON STACK 
016044 POP <R4,R5,R3,R2> 
016044 012604 MOV (SP)+,R4 
016046 012605 MOV (SP)+.R5 
016050 012603 MOV (SP)+.R3 
016052 012602 MOV (SP)+.R2 


26 016054 000207 RETURN 


honor MUN aoe 
EW 


i i ee = 


cc-ore  ee — 


| ee ew 
‘CZUDECO_UDA=50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE 102 SEO 0111 
GLOBAL SUBROUTINES SECTION 


| 
| 1 :PRINT ONE CHARACTER 
| 5 SCALL WITH MACRO PRINT 
5 016056 110037 003250 CPNT: MOVB RO,ERRCHR 
6 01 PUSH R1 
016 010146 MOV R1,<(SP) 
7 016664 012701 003664 MOV #ERRONE,R1 
8 016070 120027 000015 CMPB RO,ACR 
9 016074 001002 BNE 
10 016076 012701 003667 MOV #ERRNL,R1 
11 016102 000177 165140 1$: JMP aPTYP 
12 016106 PF: PRINTF R1,#ERRCHR 
016108 012746 003250 MOV #ERRCHR, =(SP) 
016112 010146 MOV R1,-(SP) 
016114 012746 000002 MOV #2,-(SP) 
016120 010600 MOV SP,RO 
016122 104417 TRAP  CSPNTF 
016124 062706 000006 ADD #6,SP 
13 016130 000435 BR CPNTX 
14 016132 PB: PRINTB R1,#ERRCHR 
016132 012746 003250 MOV #ERRCHR,=(SP) 
016136 010146 MOV R1,-(SP) 
016140 012746 000002 MOV #2,-(SP) 
016144 010600 MOV SP,RO 
016146 104414 TRAP  C$PNTB 
016150 062706 000006 ADD SP 
15 016154 000423 BR CPNTX 
16 016156 PX: PRINTX R1,#ERRCHR 
016156 012746 003250 MOV #ERRCHR, (SP) 
016162 010146 MOV R1,-(SP) 
016164 012746 000002 MOV #2,-(SP) 
016170 010600 MOV p 
016172 104415 TRAP  (C$PNTX 
016174 062706 000006 ADD #6,SP 
17 016200 000411 BR CPNTX 
18 016202 PS: PRINTS R1,#ERRCHR 
016202 012746 003250 MOV #ERRCHR,=(SP) 
016206 010146 MOV R1,-(SP) 
016210 012746 000002 MOV #2,-(SP) 
016214 010600 MOV SP RO 
016216 104416 TRAP  (C$PNTS 
016220 062706 000006 ADD #6,SP 
9 016224 CPNTX: POP R1 
016224 012601 MOV (SP)+,R1 
20 016226 000207 RETURN 


ec —- rr oo 
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CZUDECO UDA=50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE 103 SEO 0112 


GLOBAL SUBROUTINES SECTION 


| 
| 


1 SPRINT FORMATTED MESSAGE 

5 sCALL WITH MACRO PNT, PNTF, PNTB, PNTX, OR PNTS 

§ 016230 012737 016106 003246 LPNTF: MOV #PF,PTYPE 

6 016236 13 BR LPN 

7 016240 012737 016132 003246 LPNTB: MOV #PB,PTYPE 

B 016246 07 LPNT 

9 016250 012737 016156 003246 LPNTX: MOV #PX,PTYPE 

10 016256 03 BR LPNT 

11 016260 012737 016202 003246 LPNTS: MOV #PS.PTYPE 

12 016266 LPNT: PUSH <R2,R3,R4,R5> 
016266 010246 MOV R2,-(SP) 
016270 010346 MOV R3.-(SP) 
016272 010446 MOV R4.-(SP) 
016274 010546 MOV RS.-(SP) 

13 016276 012102 MOV (R1)+,R2 :GET ADDRESS OF STRING 

14 016300 010604 MOV SP sCOMPUTE ADDRESS OF ARGUMENTS 

15 016302 062704 000012 ADD #10. ,R4 : WHICH ARE NOW ON STACK (IF ANY) 

16 016306 PUSH R1 SAVE RETURN ADDRESS 
016306 010146 MOV R1,<(SP) 

17 016310 73 014770 CALL OSTRNG sPRINT THE FORMATTED MESSAGE 

18 016314 POP <RO,R5,R4,R3,R2,R1> sRESTORE ALL REGISTERS 
016314 0126 MOV (SP)+,RO 
016316 012605 MOV (SP)+_R5 
016320 013604 MOV (SP)+_R& 
016322 013603 MOV (SP)+_R3 
016524 912602 MOV (SP)+_R2 
016326 012601 MOV (SP)+-R1 

19 016330 062 ADD (RO)+,SP sADJUST STACK POINTER OVER ARGUMENTS 

20 016332 000110 JMP aRO * RETURN 
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CZUDECO UDA-50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE 104 


GLOBAL SUBROUTINES SECTION 


SEQ 0113 


1 sDIVIDE 
: IDIV IDE A 32 BIT UNSIGNED NUMBER BY A 16 BIT UNSIGNED NUMBER. 
4 SREPLACE DIVIDE e WITH QUOTIENT AND RETURN REMAINDER. 
2 3WILL NOT CHECK FOR DIVIDE BY ZERO. 
7 INPUTS: 
8 3 R3 = LOW 16 BITS y! s"bictaen 
9 : R4 = HIGH 16 BITS OF DIVIDEND 
10 RO = DIVISOR 
11 OUTPUTS: 
12 : R3 = LOW 16 BITS OF QUOTIENT 
13 : R4 = HIGH Le - OF QUOTIENT 
3 : RS = REMAINDE 
16 016334 DIVIDE: PUSH R2 
016334 010246 MOV R2,-(SP) 
17 016336 012702 000040 MOV #32.,R2 SET UP SHIFT COUNT 
18 016342 005005 CLR RS ZSTART WITH ZERO REMAINDER 
19 016344 006303 1$: ASL R3 ;SHIFT LEFT INTO R5 
20 016346 006104 ROL R4 
21 016350 006105 ROL R5 
22 016352 020005 CMP RO,RS sWILL pier, GO INTO REMAINDER 
23 016354 101002 BHI 2$ ZONLY SUBTRACT IF IT WILL 
24 016356 160005 SUB RO,R5S ; SUBTRACT DIVISOR 
25 016360 005203 INC R3 zPUT A ONE INTO QUOTIENT 
26 016362 005502 2$: DEC R2 [COUNT THE SHIFTS 
27 016364 001 E 1$ 
28 016 POP R2 
016366 012602 MOV (SP)+,R2 
29 016370 00020 RETURN 


4 








o- 


ta Ys : 
CZUDECO UDA=50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE 105 SEQ 0114 
GLOBAL SUBROUTINES SECTION 


1 :LOADDM 
5 [LOAD AND START A DM PROGRAM INTO A CONTROLLER 
5 s INPUTS: 
6 : RS = CONTROLLER TABLE ADDRESS 
7 : DMPROG = POINTER TO START OF DM PROGRAM IN MEMORY 
8 sOUTPUTS: 
9 ; IF LOAD SUCCEEDS = 2 CLEAR 
10 ; CONTROLLER TABLE MARKED LOADED 
i : IF ERROR = 2 SET 
13 016372 013701 002164 LOADDM: MOV DMPROG,R1 :GET STORAGE ADDRESS OF DM PROGRAM 
14 016376 116165 000021 000044 MOVB DMTMO(R1),C.TOT(RS) *GET TIMEOUT VALUE 
15 016404 105065 000045 CLRB C.TOT+1(R5) 
16 016410 016504 000004 MOV C.VEC(RS) ,R4 :GET VECTOR OF UDA 
17 016414 AND CT.VEC,R4 
016414 042704 177000 BIC #*C<CT.VEC>,R4 
18 016420 010501 MOV R5S,R1 3GET INTERRUPT SERVICE LINK 
19 016422 062701 000010 ADD #C.JSR,R1 
20 016426 SETVEC R4,R1,#PRIO7 :SET UP INTERRUPT VECTOR 
016426 012746 000340 MOV #PR107,-(SP) 
016432 010146 MOV R1,-(SP) 
016434 010446 MOV R4,-(SP) 
016436 012746 000003 MOV #3,-(SP) 
016442 104437 TRAP CSSVEC 
016444 062706 000010 ADD #10, SP 
21 s INITIALIZE UDA WITH SMALLEST 
22 016450 004737 017254 CALL UDAINT : RING BUFFER AND INTERRUPTS ENABLED 
23 016454 001445 BEQ LOADER ‘BRANCH IF AN ERROR 
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L nates UDA=50 DISK FORMATTER MACRO V04.00 30-AUG=-82 12:58:39 PAGE 06 
GLOBAL SUBROUTINES SECTION 


C 


So 
—_ 
LF 
Ro 


SF 
NSERSURSNS 


Sas 
=—W\— 
o 
© 
~N 


AAAGAKAAAOO 
DATA 


Oo 
ww 
Ss 
~ 


VFWN—OOONOuUfwh— 
an 

vw wi 

wns & 

Cone 


SOCooCoooCooCooCoo 
2325525554254 523432544 


ee 





017701 


sss 
Ww 


33 


So 

ar 
ror 
JN 
aon 
ww 


00207 


000037 


000024 
000002 


000124 


000140 
000140 


000032 


000014 
000014 


LOADB: 


mi 


MOV @DMPROG,R1 
MOV #0P.ESP,RO 
CALL 


A TMS 
BEQ LOADER ;ABORT IF NO RESPO 


BLDCMD 
MOV DMPROG,HC. Sent UADR(R4) 
py 


BIT #ST SK, ,HC.MPK+P.STS(R4) 


BNE LOA 
BIC #CT.CMD+CT.REQ 
ae tun #CT.RN,C.FLGCR 


cR5) 


C.FLG(RS) 


SEQ 0115 
:GET SIZE OF PROGRAM 
SBUILD EXECUTE SUPPLIED PROGRAM COMMAND PACKET 
;LOAD MAIN PROGRAM ADDRESS 
‘LOAD OVERLAY ADDRESS 


SEND COMMAND TO UDA 
gWAIT FOR MESSAGE RESPONSE 


NSE 
CHECK FOR ERRORS 


CLEAR COMMAND OUTSTANDING FLAG 
SET DM PROGRAM RUNNING FLAG 


+ 


eee, See ee Ra BE Siri < 


bys UDECO UDA=-50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE 107 
GLOBAL SUBROUTINES SECTION 


1 sUDA FAILED TO DOWNLINE LOAD DM PROGRAM 
3 16560 LOADE1: ERRDF 34,,ERRO34 

16560 104455 

16562 000042 

16564 000000 

16566 bh Fs 

16570 0264 LOADER: SEZ 
5 016572 000207 RETURN 


7 
Cooooooo 


TRAP CSERDF 
34 


«WORD _ERRO34 
SET Z TO INDICATE ERROR OCCURRED 


SEQ 0116 


—— pa SRE SAAS 


| 
| 
| 
1 


VIFWN—ODONOUSWh— 


ed ed ed od ed ed 
lelelejloleloelololeolelololojoj—~) 


RFESSSAAG 
NEROOR 


od od os od oS I 


Ww for 
Oo OONOUFSWR—OCUOONO 
oo°oo 
PARARO 
RID 
MVuvwiyvi 
soon 


Ponononnronnn--— 


RRO. 
a 


4 
31 016656 


001375 
012664 


012601 
000207 


000016 
000100 


000031 
177777 
000030 


000114 


sBLDCMD 
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‘CZUDECO UDA=50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE 08 
GLOBAL SUBROUTINES SECTION 


‘BUILD A COMMAND IN COMMAND PACKET 


; INPUTS: 


OUTPUTS: 


BLDCMD: 


BLDCO: 
BLDC1: 


R5 = bee a i esa ADDRESS 


RO = COMMAND 


R4 = ADDRESS OF HOST COMM AREA 
COMMAND PACKET CONTAINING REF NUMBER AND OPCODE. ALL OTHER AE CLEARED. 
CMD eh ae me: IN CONTROLLER TABLE INCREMENTED AND RESUL 


IN COMMAND 


PACK 
RO = CONTENTS DESTROYED 


PUSH <R1,R0> 


MOV C.RING(RS) RG 

MOV R4,RO 

ADD #HC.CEV,RO 

MOV #HC.PSZ.(RO)+ 
#DUP,R1 

CMP #OP.MWR, (SP) 
BLDCO 

MOV #DIAG,R1 

MOV R1,(RO)+ 

MOV #<HC.PSZ>/2,R1 
(RO) + 


BLDC1 
POP HC.CPK+P.OPCD(R4) 
POP R1 
RETURN 


MO 
sGET syle bee OF HOST COMM AREA 


SEQ 0117 


MOV R1,-(SP) 
V_RO,=(SP) 


‘COMPUTE ADDRESS re COMMAND ENVELOPE 


;LOAD PACKET LENGTH 


LOAD DIAG CIRCUIT ieee unite 


z1F CODE IS MAINTENANCE Wi 


CLEAR PACKET 


PUT OPCODE IN PACKET 
sRESTORE R1 


RITE 
GET OTHER CIRCUIT IDENTIFIER 
:PUT Ashe = PACKET 
ZGET WORDS TO CLEAR 


MOV (SP)+,HC.CPK+P.OPCD(R4) 
MOV (SP)+,R1 
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CZUDECO UDA-50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE 109 SEQ 0118 
GLOBAL SUBROUTINES SECTION 


1 + SNDCMD 

3 ‘SEN D A COMMAND TO THE UDA. 

4 ;MARK BOTH Aandi AVAIL ABLE TO THE 

5 SUDA. SET COMMAND ISSUED BIT IN CONTROLLER TAGLE AND INITIALIZE 

° : TIMEOUT COUNTER . 

8 INPUTS: 

9 ; RS = CONTROLLER TABLE ADDRESS 

10 OUTPUTS: 
: R4 = ADDRESS OF HOST COMM AREA 
13 
14 016660 SNDCMD: PUSH <RO,R1> 

016660 010046 MOV RO,-(SP) 
016662 010146 MOV R1,-(SP) 

15 016664 016504 000016 MOV C.RING(RS) ,R4 ;LOAD_R4 WITH HOST COMM AREA ADDRESS 
16 016670 005265 000052 INC C.REF(RS) i INCREMENT CMD REFERENCE NUMBER 

17 016674 016564 000052 000104 MOV C.REF(R5),HC.CPK+P.CRF(R4) :PUT IN PACKE 

18 016702 012764 140000 000006 MOV #RG.OWN+RG.FLG, ts MCT(R4) ;MARK MESSAGE PACKET AVAILABLE 

19 016710 012764 100000 000012 MOV #RG.OWN,HC.CCT(R4) MARK COMMAND 
20 016716 005775 000000 TST a(R5) STELL UDA COMMAND IS THERE 
21 016722 052765 000004 000014 BIS #CT.CMD,C.FLG(RS) MARK COMMAND ISSUED 
22 016730 POP <R1,R0> 


So 
= 
o 
~“ 
Ww 
So 
o 
=—— 
~ 
an 
3S 
= 


MOV (SP)+,R1 
016732 012600 MOV (SP)+,RO 
23 016734 000207 RETURN 


a a ee — 


ee ——o 
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CZUDECO UDA-50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE 110 SEQ 0119 
GLOBAL SUBROUTINES SECTION 


J ; CLRBUF 
3 ICLEAR THE SPECIFIED DATA BUFFER IN THE HOST COMM AREA 
¢ 3 AND LOAD BUFFER DESCRIPTOR IN COMMAND PACKET TO THE BUFFER 
6 INPUTS: 
7 ; R5 - See eet GF TABLE ADDRESS 
8 : R4 = ADDRESS OF HOST C AREA 
9 RO = OFFSET INTO HOST COMM AREA TO DATA BUFFER 
10 OUTPUTS: 
11 ; DATA re CLEARED 
12 ; COMMAND PACKET ae nite” TO BUFFER 
13 ; BYTE COUNT SET SIZE OF BUFFER 
% : R4 = ADDRESS OF "DATA BUFFER 
16 016736 CLRBUF: PUSH <RO,R1> 
016736 010046 a + pip 
016740 010146 R1,-(SP) 
17 016742 060400 ADD R4,RO sADD START OF HOST COMM AREA 10 Ait, 
18 016744 010064 000124 MOV RO, HC.CPK+P.UADR(R4) PUT BUFFER wrytt IN COMMAND PACKET 
19 016750 012764 000122 000120 MOV #HC.BSZ,HC.CPK+P.BCNT(R4) SPUT SIZE OF BUFFER IN COMMAND PACKET 
20 016756 0100 MOV RO,R4 3PUT GUFFER ADDRESS IN R4 
21 016760 012701 000051 MOV #HC. BSZ/2, R1 sGET SIZE OF ght IN WORDS 
22 016764 005020 CLRBFL: CLR (RO)+ 7CLEAR ALL THE WORD 
23 016766 005301 DEC R1 
24 4h TAA 001375 BNE CLRBFL 
25 01677. POP <R1,R0> 
016772 012601 MOV (SP)+,R1 
016774 012600 MOV (SP)+,RO 


26 016776 000207 RETURN 
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000014 


000042 





SEQ 0120 
;WAITMS 
[WAIT FOR UDA TO RESPOND WITH A MESSAGE PACKET 
; INPUT TS: 
RS = ADDRESS OF CONTROLLER TABLE 
SOUTPUTS: 
: 2 CLEAR IF NO ERROR 
: 7 SET IF ERROR, MESSAGE PRINTED 
WAITMS: PUSH <RO,R1> 
MOV RO,-(SP) 
MOV R1.=(SP) 
MOV #30.,RO :SET TIME OUT VALUE OF 30, SECONDS 
MOV R5,Ri1 ‘POINT TO TIME OUT COUNTE 
ADD #C.TO,R1 
CALL SET 
1$: MOV (R5),RO :GET ADDRESS OF UDAIP REGISTER 
BIT #CT.MSG,C.FLG(RS) OOK IF INTERRUPT OCCURRED 


BNE BRAN CH_ IF SO 
MOV 2(RO),R1 ;LOOK AT UDASA REGISTER 
BNE 4$ ‘BRANCH IF ERROR CODE PRESENT 


BREAK 


TRAP CSBRK 

a eae SEE IF A CLOCK ON SYSTEM 

a Sg-0h 95-6. FOMRDD CHECK IF TIMEOUT HAS HAPPENED 

BNE 1$ 

ay KW.EL,C.TOCRS) 

2$: ERRDF 36,,ERRO36 

TRAP CSERDF 
«WORD 36 
«WORD 0 
-WORD ERRO36 


POP <R1,R0> 
MOV (SP)+,R1 
MOV (SP)+,RO 


SEZ 
RETURN 
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042765 000010 000014 3$: 


MSG,C.FLGC(RS) 
0> 


RETURN 
ERRDF 37,,ERRO37 


POP <R1,R0> 


SEZ 
RETURN 


GIVE NO ERROR RETURN 


sCLEAR MESSAGE RECEIVED FLAG 


MOV (SP)+,R1 
MOV (SP)+,RO 


TRAP CSERDF 
«WORD 37 
«WORD 0 
«WORD ERRO37 
MOV (SP)+,R1 
MOV (SP)+*,RO 


SEQ 0121 
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ie 
| 1 sNXMI 
| 5 SNON-EXISTANT MEMORY SERVICE ROUTINE 
5 3 INPUTS: 
6 NXMAD SET TO ZERO 
7 OUTPUTS: 
8 : NXMAD SET TO ONES IF NON-EXISTANT TRAP OCCURED 
10 017152 BGNSRV NXMI 
s 017152 NXMI: : 
12 017152 012737 177777 002222 MOV #=1,NXMAD 
14 017160 ENDSRV 
017160 £10033: 
017160 000002 


RTI 


SEQ 0122 
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1 ;UDASRV 
2 
| 4 SUDA INTERRUPT SERVICE ROUTINE. MARKS UDA CONTROLLER TABLE THAT AN 
¢ 3 INTERRUPT HAS BEEN RECEIVED. 
6 :THIS ROUTINE IS CALLED BY A CJSR RO,UDASRV] INSTRUCTION FROM WITHIN 
7 :THE CONTROLLER TABLE. T - PC STORED IN RO IS THE ADDRESS OF THE C.FLG 
8 sWORD IN THE CONTROLLER TABLE. sTHE STACK CONTAINS THE SAVED CONTENTS 
m4 : OF RO FOLLOWED BY THE INTERRUPTED PC AND PS. 
11 INPUTS: 
12 3 RO = ADDRESS OF C.FLG WORD IN CONTROLLER TABLE 
13 3 STACK = SAVED CONTENTS OF RO 
14 ;OUTPUTS: 
15 3 CT.CMD CLEARED AND CT.MSG SET IN C.FLG WORD OF CONTROLLER TABLE 
6 : RO = RESTORED FROM STACK 
18 017162 BGNSRV UDASRV 
017162 UDASRV:: 
19 017162 052710 000010 BIS #CT.MSG, (RO) 7SET CT.MSG 
20 017166 POP RO SRESTORE RO 
017166 012600 MOV (SP)+,RO 
21 017170 ENDSRV 
017170 110034: 
017170 000002 RTI 


SEQ 0123 
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017250 012602 MOV (SP)+,R2 
42 017252 000207 RETURN 


1 sSETTO 
5 [SET TIMEOUT COUNTER TO SOME NUMBER OF SECONDS FROM CURRENT TIME. 
5 ; INPUTS: 
| 6 : RO = NUMBER OF SECONDS FOR TIMEOUT 
| 2 ee st = ADDRESS WHERE TWO WORD TIME TO BE PuT 
| 9 ; RO = CONTENTS DESTROYED 
10 : R1 = INCREMENTED BY 2 
12 sCOMPUTE CLOCK TICKS TIL TIMEOUT 
14 017172 SETTO: PUSH <R2,R3> 
017172 010246 MO. 22,<(SP) 
017174 010346 MOV R3.=(SP) 
15 017176 005002 CLR R2 SCLEAR PRODUCT 
16 017200 013703 003240 MOV KW.HZ,R3 <GET MULTIPLICAND 
17 017204 006200 SETOO: ASR RO SSHIFT MULTIPLIER TO RIGHT 
18 017206 103001 BCC SETO1 TIF A ONE BIT SHIFTED OUT 
19 017210 060302 ADD R3,R2 : ADD MULTIPLICAND TO PRODUCT 
20 017212 006303 SETO1: ASL R3 [DOUBLE THE MULTIPLICAND 
31 017214 005700 TST RO 
a 017216 001372 BNE SETOO SCONTINUE UNTIL MULTIPLIER IS ZERO 
$e GET CURRENT TIME 
26 017220 013700 903242 SETO2: MOV KW.EL,RO GET TIME 
57 017224 013703 003244 MOV KW.EL#2,R3 
28 017230 020037 003242 CMP RO.KW.EL IF CHANGED DURING RETRIEVAL 
29 017234 001371 BNE SETO2 : GET IT AGAIN 
31 SADD TIME TIL TIMEOUT 
33 017236 060200 ADD R2,R0 ADD 
34 017240 005503 ADC R3 
36 :PUT RESULT IN STORAGE 
38 017242 010021 MOV RO,(R1)+ 
39 017244 010311 MOV R3.(R1) 
41 017246 POP <R3,R2> | 
017246 012603 - MOV (SP)+,R3 


SEQ 0124 
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sUDAINT 


SFUNCTIONAL DESCRIPTION: 
; SUBROUTINE TO INITIALIZE A_UDA AND BRING IT ON-LINE. 
‘ ALL STEPS ARE CHECKED. AN ERROR MESSAGE IS REPORTED IF ANY ERROR 
; DETECTED. 
alas 

R5 = ADDRESS OF CONTROLLER TABLE. 


| 1 
a 
4 
= 
é 
7 
| 8 
10 S IMPLICIT INPUTS: 
| 11 ; C.RING(R5) = ADDRESS GIVEN TO UDA AS START OF RING BUFFER. 
i2 Sia Leneth OF RING STRUCTURE IS ONE ENTRY EACH. 
| 14 : CONDITION Z = SET IF ANY ERROR REPORTED. CLEAR IF NO ERROR. 
15 : R4 = ADDRESS OF UDAIP REGISTER IN UDA 
16 : RS = UNCHANGED. 
18 sFILL HOST COMMUNICATION AREA WITH ALL ONES 
20 017254 016502 000016 UDAINT: MOV C.RING(RS) ,R2 :GET FIRST ADDRESS OF RING BUFFER 
21 017260 012703 000006 MOV #<HC.RSZ*2+HC.1SZ>/2,R3 ;GET SIZE OF RING BUFFER 
22 017264 012722 177777 UDAI1L: MOV #=1, (R2)+ :WRITC ONES TO BUFFER 
23017270 005303 DEC R3 [COUNT THE woRDe” IN BUFFER 
3 017272 003374 BGT UDAIIL [LOOP UNTIL ENTIRE BUFFER WRITTEN 
36 :D0 THE INITIALIZATION 
28 017274 004737 017470 CALL UDAIST :D0 FIRST THREE STEPS 
29 017 103471 BCS UDAIEX *GET OUT IF UDA, MICROCODE REPORTED FAILURE 
30 017302 012364 000002 MOV (R3)+,2(R4) [WRITE NEXT WORD TO UDASA REGISTER 
31 017306 012703 000310 MOV #200..R3 7GET TRY COUNTER 
32 017312 016402 000002 UDAI1A: MOV 2(R4) .R2 [LOOK AT UDASA 
33 017316 001410 BEQ UDAIIC 
34 017320 100005 BPL UDAI1B 
35 017322 ERRDF 24,,ERRO24 
017322 104455 TRAP  CSERDF 
017324 000030 «WORD 24 
017326 000000 “WORD 0 
017330 011352 “WORD ERRO24 
36 017332 000454 BR UDAIEX 
37 017334 005303 UDAI1B: DEC R RS 
38 017336 001365 E UD. 
39 017340 010264 000002 UDAI1C: MOV Boh athe) ;WRITE 0 TO UDASA (PURGE) 
40 017344 011402 MOV (R4),R2 [READ FROM UDAIP (POLL) 
41 017346 004737 020014 CALL UDARSP [WAIT FOR STEP OR ER ROR 
42 017352 103444 BCS UDAIEX [GET OUT IF UDA MICROCODE REPORTED FAILURE 


RE were | 


SEQ 0125 
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sCHECK HOST COMMUNICATION AREA FOR ALL ZEROS 


UDAI2: MOV C.RING(RS),R2 :GET FIRST ADDRESS OF RING BUFFER 
MOV WHC. -RSZ*2+HC. 1$2>/2,R3 GET SIZE OF RING BUFFER 
UDAI2L: TST (R2)+ :CHECK WORD IN BUFFER 
BNE UDAI2E :GO TO ERROR REPORTER IF NOT ZERO 
DEC R3 ‘COUNT THE WORDS IN BUFFER 
BGT UDAI2L ‘LOOP UNTIL ALL WORDS CHECKED 
BR UDAI3 
UDAI2ZE: ERRDF 23,,ERRO23 ;REPORT BUFFER NOT CLEARED 
TRAP CSERDF 
.WORD 23 
<WORD 0 
“WORD ERRO23 
BR UDAIEX 
ZSEND GO BIT TO UDASA REGISTER TO END INITIALIZATION 
UDAI3: 
MOV C.BST(RS),RO :GET BURST VALUE 
ASL RO *SHIF7 TO POSITION 
ASL RO 
BIS #SA.GO.RO 3SET THE GO BIT 
MOV RO,2(R4) :SEND TO UDA - 
MOV C.RING(RS) ,R1 
MOV R1,HC.MSG(R1) 
ADD #HC.MPK,HC. MSGCRT) 
MOV R1, (R1) 


Hc. CPKOMC. CMD(R1) 
RETURN 

ERROR RETURN 

UDAIEX: SEZ 
RET 


SCLEAR Z AS NO ERROR INDICATION 


une SET Z TO INDICATE ERROR OCCURRED 


—— = SS 


SEQ 0126 
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kK 10 
‘CZUDECO_UDA=50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE 118 
‘GLOBAL SUBROUTINES SECTI 


— ——b 


a7 
~N 


NOVMEWN—O0ONGO UF W N—OOONOUSWwh— 
par Ser Ser er Perey 
~“ 


NNNNNNNN Se 


WNW 
wn 


Ww 

ae 

par Per Per pera) 
i] 
& 
So 


104422 
010146 
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000004 
177000 


100000 
017706 
000016 
000004 


002222 


sUDAIST 
TSTART THE ght Uk PROCESS ON THE 


TSTOP BEFORE WRITING THE THIRD WORD SO UDA DOES NOT 


sATTEMPT ANY UNIBUS TRANSFERS. 


+ INPUTS: 
$ RS = ADDRESS OF CONTROLLER TABLE 


3;LOAD TABLE OF DATA TO SEND TO UDASA REGISTER 


UDAIST: BREAK 
PUSH R1 


MOV C.VEC(RS) ,.R4 
AND CT.VEC,R4 


ASR R4 


ASR R4 
BIS #SA.STP,R4 
MOV R4,UDAIO1 
MOV C. RING(RS) ,UDAID2 
ADD #HC.MSG,UDAID2 


START THE INITIALIZATION BY WRITING TO UDAIP REGISTER 


ay C.UADR(RS) ,R4 
SETVEC #4, #NXMI,#PRIO7 


TST 2(R4) 
CLR (R4) 
CLRVEC #4 


is wa 
ERDF 780s SERROZO 


SEC 
BR UDAISE 


SEQ 0127 
SELECTED UDA. 
TRAP CSBRK 
MOV R1,-(SP) 
BIC #*C<CT.VEC>,R4 
SET STEP BIT IN DATA WORD 
;LOAD INTERRUPT VECTOR 
;LOAD MEMORY ADDRESS 
OF FIRST RESPONSE RING 
GET ADDRESS OF A REGISTER 
CLEAR MEMORY ee ROR FLAG 
;SET UP VECTOR 4 
MOV #PR1I07,-(SP) 
MOV #NXMI,-(SP) 
MOV #4,-(SP) 
MOV #3,-(SP) 
TRAP CSSVEC 
ADD #10,SP 
sacteee UDASA REGISTER 
[WRITE TO UDAIP 
7GIVE UP THE VECTOR 
#4 RO 
TRAP CSCVEC 
SEE IF A MEMORY ERROR OCCURRED 
TRAP CSERDF 
- WORD 0 
- WORD 
-WORD ERROZO 


ce i ee ee ee ee rc a 2 a en ee ee 
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H 7SET UP LOOP PARAMETERS TO EXECUTE THE FOUR STEPS OF INITIALIZATION 
3 017630 012737 004000 020152 UDAISG: MOV #SA.S1 — STORE RESPONSE MASK 
: 017636 012703 017704 MOV #UDAIDT,R zAND INDEX TO TABLE 
§ sWAIT FOR AND CHECK RESPONSE DATA 
8 017642 004737 020014 UDAISL: CALL UDARSP WAIT FOR STEP OR ERROR BITS 
9 017646 103414 BCS UDAISE EXIT IF ERROR 
10 017650 004733 CALL a(R3)+ 3CALL a CHECKER FOR STEP 
11 017652 103412 BCS UDAISE 3GET OUT ROR 
12 017654 006337 020152 ASL UDARSD 7SHIFT TO NEXT STEP BIT 
13 017660 032737 040000 020152 BIT #SA.S4,UDARSD ; CHECK i" NOW AT STEP 4 
14 017666 001003 BNE UDAISX 3GET OUT IF S$ 
15 017670 012364 000002 MOV fg 2(R4) {WRITE DATA TO UDASA REGISTER 
16 017674 000762 BR UDA STAY IN LOOP 
18 017676 000241 UDAISX: CLC sCLEAR CARRY FOR NO ERROR INDICATION 
19 017700 UDAISE: POP R1 
017700 012601 MOV (SP)+,R1 
20 017702 000207 RETURN 
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017722 
00000 

017730 

0000 


017766 


017722 012701 
017726 000422 


017730 013701 
017734 000301 
017736 042701 
017742 052701 
0 000412 


NONONONONYD 2 = St to ss es 


SHREK OWW Wea VS 


017750 013701 
D pire 042701 
01 


0 011366 
45 020010 000261 
46 020012 000207 


004400 


017706 


177400 
010000 


017706 
177400 
020000 


137760 


:DATA TO BE SENT AND RECEIVED BY UDA INITIALIZATION 


UDAIDT: .WORD UDAIR1 sFIRST WORD RESPONSE Wik ROUT INE 
UDAID1: .WORD 0 FIRST WORD TO SEND TO UDA 

~WORD UDAIR2 SECOND WORD RESPONSE CHECK ROUTINE 
UDAID2: .WORD 0 SECOND WORD TO SEND TO UDASA 

-WORD UDAIR3 s THIRD WORD RESPONSE Bs ROUTINE 
UDAID3: .WORD SA.TST ;THIRD WORD TO SEND TO UDASA 

eWORD UDAIR4 ZFOURTH WORD RESPONSE CHECK ROUTINE 


RESPONSE CHECK FOR FIRST WORD FROM UDASA 
CHECK FOR PROPER CONTROLLER TYPE 


UDAIR1: MOV #SA.S1+SA.DI,R1 SET STEP ONE BIT 
BR UDAIRC ;NOW COMPARE 


RESPONSE CHECK FOR SECOND WORD FROM UDASA 
CHECK FOR ECHO OF INTI AND VECTOR 


UDAIR2: MOV _UDAID1,R1 GET WORD SENT TO UDASA 
WAB R :GET HIGH 8 BITS 
BIC #177400,R1 
BIS #SA.S2,R1 7 SET Ll ce BIT 
BR UDAIRC NOW COM 


RESPONSE CHECK FOR THIRD W. ?D FROM UDASA 
CHECK FOR ECHO OF MESSAGE AND COMMAND RING LENGTHS 


UDAIR3: MOV UDAID1 .R :GET WORD SENT TO UDASA 
BIC 400, Rt :JUST LOW 8 BITS 
BIS pea s3 hl 3SET STEP 3 BIT 
BR UDAIRC [NOW COMPARE 


RESPONSE CHECK FOR FOURTH WORD FROM UDASA 
CHECK FOR ECHO OF PURGE AND LFAIL BITS 


UDAIR4: MOV R2,R GET RESPONSE FROM UDA 

BIC WteSA. S4+SA.MCV>,R1 ZKEEP MICROCODE VERSION AND STEP 4 
sCOMPARE EXPECTED DATA IN R1 WITH ACTUAL DATA IN R2 
UDAIRC: CMP R1,R2 sCOMPARE THE DATA 

BEQ UDAIRX sEXIT IF COMPARED CORRECTLY 

ERRDF 25,,ERRO25 REPORT ERROR 


TRAP CSERDF 
25 


0 
-WORD ERRO2S 
SEC 
UDAIRX: RETURN 
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| J ;UDARSP 
| 3 [WAIT FOR UDA TO RESPOND WITH DATA IN UDASA REGISTER. 
4 SEITHER STEP BIT FROM MASK IN LOCATION UDARSD OR ERROR BIT 
5 “WILL CAUSE A TERMINATION 
6 TAN ERROR MESSAGE WILL BE “PRINTED IF THE UDA DOES NOT RESPOND 
c ZIN 10 SECONDS OR IF ERROR SETS. 
9 TINP UTS: 
10 ; UDASRD = MASK OF STEP BIT TO LOOK FOR 
11 ; R5 = ADDRESS OF CONTROLLER TABLE 
12 R&4 = ADDRESS OF UDAIP REGISTER 
13 OUTPUTS: 
14 : ERROR MESSAGE IF TIME OUT ON RESPONSE OR ERROR BIT SETS 
15 ; R2 = DATA FROM UDASA REGISTE 
16 : CARRY SET IF ERROR BIT SETS OR TIME OUT 
18 020014 UDARSP: PUSH R1 
020014 010146 MOV R1,-(SP) 
19 620016 052737 100000 020152 BIS #SA.ERR,UDARSD ;SET ERROR BIT IN MASK D 
20 020024 012700 000012 MOV #10.,RO ‘SET UP ;uk 10 SECOND TIMEOUT 
21 020030 010501 MOV R5,Ri1 [POINT TO COUNTER IN CONTROLLER TABLE 
22 020032 062701 000040 ADD #C.TO,R1 
23 020036 004737 017172 CALL SETTO 
24 020042 POP R1 
20042 012601 MOV (SP)+,R1 
5 020044 033764 020152 000002 UDARS1: BIT UDARSD,2(R4) :LOOK AT ERROR AND STEP BIT 
26 020052 001024 BNE UDARS2 ‘BRANCH IF EITHER SET 
27 020054 BREAK 
020054 104422 TRAP  C$BRK 
28 020056 005737 003232 TST kW. CSR ;SEE IF CLOCK ON SYSTEM 
29 020062 001770 BEQ UDA 
0064 023765 003244 000042 CMP KW. cise, C.TOH(RS) sCHECK IF TIME OUT OCCURRED 
31-020072 101005 BHI 1$ 
32 020074 001363 BNE UDARS1 
33 020076 023765 003242 000040 CMP KW.EL,C.TOC(RS) 
34 020104 103757 BLO uDARsi 
35 020106 016402 000002 1$: MOV 2(R4),R2 :GET REGISTER CONTENTS 
36 020112 ERRDF BS. FeR022 SREPORT TIME OUT ERROR 
020112 104455 TRAP CSERDF 
020114 000026 .WORD 22 
020116 000000 “wORD 0 
020120 011220 “WORD ERRO22 
37 020122 000407 BR UDARSE 
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1 CHECK IF ERROR BIT SET 

5 020124 016402 000002 UDARS2: MOV 2(R4) ,R2 GET REGISTER CONTENTS 

4 020130 100006 BPL_UDARSX EXIT IF ERROR NOT SET 

5 0201 ERRDF 21,,ERRO21 ;REPORT ERROR INFO 
020132 104455 TRAP CSERDF 
020134 000025 «WORD 21 
020136 000000 WORD 0 
020140 011166 «WORD ERRO21 

6 020142 000261 UDARSE: SEC 

‘ 020144 000207 RETURN 

10 sNORMAL EXIT 

11 020146 000241 UDARSX: CLC sCLEAR CARRY AS NO ERROR INDICATION 

ig 020150 000207 RETURN 

\ ;LOCATION FOR STEP BIT MASK 

16 020152 000000 UDARSD: .WORD 0 ;LOAD BY CALLING ROUTINE 
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1 3 CLOG 

5 ;COMPUTE LOGARITHMIC VALUE OF NUMBER TO BASE 2. 

5 : INPUTS: 

6 RO = LOGARITHM TO BE CONVERTED 

4 ‘OUTPUT S: 

. s R1 = VALUE OF 2 RAISED TO POWER OF INPUT NUMBER 

10 sCLOG: PUSH RO 

11 ; CLR R1 3SET UP ZERO START VALUE 
12 ; SEC ;WITH CARRY + te TO SHIFT IN 
13 :CLOGLP: ROL R1 aaah O LEFT 
14 : C RO : UNTIL RO 

15 : BPL CLOGLP : GOES NEGATIVE 

16 ; POP RO 

17 3 RETURN 





a 
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skwi11 

SCLOCK INTERRUPT SERVICE ROUTINE 

BGNSRV KW111 ead 
2737 000001 003242 ADL ~1,KW.EL :COUNT THE INTERRUPT 
5537 003244 ADC KW.EL#2 
2777 000105 163036 MOV #KWOUT.,aKkW.CSR RESTART THE CLOCK 


020174 ENDSRV 
020174 L10035: ant 
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J sRNTIME 

: *PRINT RUNTIME 

5 INPUTS: 

é ; KW.EL = CONTAINS ELAPSED TIME 

7 KW.HZ = HERTZ OF CLOCK 

8 SOUTPUTS: 

9 : IF CLOCK ON SYSTEM: 

10 : RUNTIME HH:MM:SS °° PRINTED 

i ; IF NO CLOCK: One SPACE IS PRINTED 

13 920176 005737 003232 RNTIME : TST Ku.CSR sCHECK IF A CLOCK PRESENT 

14 020202 001465 BEQ R [BRANCH IF NOT 

15 020204 PUSH rity R3, R4,R5> 
020204 010046 MOV RO,-(SP) 
020206 010346 MOV R3.=(SP) 
020210 010446 MOV R4.=(SP) 
020212 010546 MOV R5.=(SP) 

16 020214 013703 003242 MOV KW.EL,R3 3GET ELAPSED TIME 

17 020220 013704 003244 MOV KW.EL+2,R4 

18 020224 013700 003240 MOV KW.HZ,RO ;GET SPEED OF CLOCK 

19 020230 004737 016334 CALL DIVIDE “COMPUTE SECONDS OF ELAPSED TIME 

20 020234 012700 000074 MOV #60. ,RO NOW DIVIDE BY 60 

21 020240 004737 016334 CALL DIVIDE COMPUTE MINUTES 

22 020244 PUSH R5 = SAVE REMAINDER AS SECONDS 
020244 010546 MOV R5,-(SP) 

23 02024 737 016334 CALL DIVIDE DIVIDE BY 60 AGAIN 

24 02025 PNT RNTIM,R3 ‘PRINT HOURS 
026252 010346 MOV R3,-(SP) 
020254 004137 016266 JSR R1.LPNT 
020260 003672 -WORD RNTIM 
020262 000002 “WORD PNT.CT 
020264 020527 000011 CMP RS,49. :IF MINUTES 9 OR LESS 

26 020270 BGT 1$ 

27 020272 PRINT #°0 :PRINT A LEADING ZERO 
020272 112700 000060 MOVB #°0,RO 
020276 004737 016056 CALL CPNT 

28 020302 1$: PNT RNTIM1,R5 :NOW PRINT MINUTES 
020302 010546 MOV RS,-(SP) 
020 137 016266 JSR R1.LPNT 
020310 003715 .WORD RNTIM1 
02031 “WORD PNT.CT 

29 020314 POP RS :GET SECONDS 
020314 012605 MOV (SP)+,R5 

30 020316 020527 000011 CMP RS,#9. s1F 9 OR LESS 

31 020322 BGT 2$ 

32 020324 PRINT #0 :PRINT A LEADING ZERO 
020324 112700 000060 MOVB #°0,RO 
020330 004737 016056 CALL CPNT 

33 020334 2$: PNT RNTIM2,R5 sNOW PRINT SECONDS 
020334 010546 MOV R5S,-(SP) 
020336 004137 016266 JSR R1.LPNT 
020342 003723 .WORD RNTIM2 
020344 000002 “WORD PNT.CT 

34 020346 POP <R5,R4,R3,R0> sHOURS IN R3 
020346 012605 MOV (SP)+,R5 





SEQ 0134 


——-———— 
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GLOBAL SUBROUTINES SECTION 


b30880 
020354 
35 020356 
020356 
020362 
26 020366 


38 020370 





000040 
37 016056 


RNTIMX: 


PRINT <#* > 


RETURN 
ENDMOD 


PRINT A SPACE 


SEQ 0135 


MOV (SP)+,R4 
MOV (SP)+, *R3 
MOV (SP)+,RO 


MOVB #° ,RO 
CALL CPNT 


ZUDE 
PROTECTION TABLE 


sa 
| 


020370 


- 
NOUSWN =| OVONOUSWN— 


020370 177777 
020372 177777 
020374 177777 


ee ee 


G "1 
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-SBTTL PROTECTION TABLE 
BGNMOD 


THIS TABLE IS USED BY THE RUNTIME SERVICES 
z To PROTECT THE LOAD MEDIA. 


BGNPROT 
LSPROT:: 
-1 sOFFSET I 
-1 SOF FSET INTO P=TABLE FOR MASSBUS ADDRESS 
= [OFFSET I 
ENDPROT 


NTO P-TABLE FOR CSR ADDRESS 
NTO P-TABLE FOR DRIVE NUMBER 


SEQ 0136 








H 11 
‘CZUDECO UDA=50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE 127 SEQ 0137 
INITIALIZE SECTION 
| .SBTTL INITIALIZE SECTION 
| 4 : i THe INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
3 T THE BEGINNING OF EACH PASS. 
8 020376 BGNINIT 
9 020376 LSINIT:: 
10 020376 READEF #EF.START :CHECK IF STARTED BY OPERATOR 
020376 012700 000040 MOV #EF .START,RO 
020402 104447 TRAP  CSREFG 
11 020404 BCOMPLETE INITO : IF NOT, 
020404 103415 Bcs INITO 
12 020406 READEF #EF .RESTART 
020406 012700 000037 MOV #EF RESTART, RO 
020412 104447 TRAP  C$REFG 
13 020414 BCOMPLETE INIT1 
020414 103415 BCs INIT1 
14 020416 READEF #EF .CONTINUE 
020416 012700 000036 MOV #EF .CONTINUE RO 
020422 104447 TRAP CSREFG 
15 020424 BCOMPLETE INIT1 
020424 103411 BCs INIT1 
16 020426 READEF #EF.PWR 
020426 012700 000034 MOV #EF .PWR,RO 
0204 32 104447 TRAP  C$REFG 
17 0204 BCOMPLETE INIT1 
020434 103405 BCs INIT1 
18 020436 INITOQT: DOCLN : ABORT PROGRAM 
20436 104444 TRAP  CSDCLN 
19 020440 INITO: 
21 020440 004737 012500 CALL CLOSEF ; MAKE SURE FILE IS CLOSED 
22 020444 005037 002214 CLR FNUM = ;_NO FIL 
24 020450 012700 000003 INIT1: MOV #SO. FAT AR RO [BUILD MODE WORD FROM SOFTWARE QUESTIONS 
25 020454 030037 002144 BIT RO,S 3SEE IF REFORMA 
020460 001011 BNE INI oP BRANCH IF e0. 
27 020462 012700 000004 MOV #SO.CNS,RO ‘SEE IF RECONSTRUCT 
28 020466 030037 002144 BIT RO,SFPTBL 
29 020472 001004 BNE INIT2 : BRANCH IF SO 
30 020474 006300 ASL RO ;SEE IF RESTORE 
31 020476 ASSUME SO eSTR EQ SO.CNS*2 
32 020476 030037 002144 BIT RO,SFPTBL 
33 020502 001755 BEQ INITOT z1F NOT, ABORT PROGRAM 
34 020504 010037 003230 INIT2: MOV RO,MODE *SAVE MODE FLAG 
35 020510 005737 003344 TST DATEO [SEE IF ALREADY ASKED FOR DATE 
36 02051 001002 BNE INIT3 
37 020516 004737 021430 CALL DATE :1f NOT, GET IT NOW 
38 020522 004737 012064 INIT3: CALL RESET :RESET ALL UNITS 
39 020526 MEMORY FFREE *RESET START OF FREE MEMOR 
020526 104431 RAP  C$MEM 
020530 010037 002146 nov RO, FFREE 
40 020534 017737 161406 002150 MOV aFFREE,FSIZE ZRESET SIZE OF FREE MEMORY 
rk INITIALIZE CLOCK 








——= 


tn 
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TIALIZE S$ 


6h 
45 020542 


51 020574 

0574 
52 020576 
53 020602 


60 0 
61 020670 


00323 
Oo ase 
003244 


000114 


000010 
000105 


162342 


KYES: 


KWOUT.=105 


CLOCK L,RO 


BCOMPLETE KYES 
CLOCK P,RO 


BCOMPLETE KYES 


CLR KW.CSR 
PNTF NOCLOCK 


BR KNO 
aa (RO)+,KW.CSR 


HZ 
SETVEC Ku. “VEC o#KW111,KW.BRL 


MOV #KWOUT. ,aKW.CSR 


sDATA TO SEND TO KWwWi1 ettn CLOCK 


;MARK CLOCK AS NOT ON SY 
ZCLEAR ELAPSED TIME 


sSEE IF AN L CLOCK —— 


BCS 
3SEE IF A P CLOCK PRESENT 
MOV 


STORE DATA RETURNED 


SET THE VECTOR 


START THE CLOCK 


BCS KYES 
zIF NEITHER, CLEAR CSR STORAGE WORD 


SEQ 0138 
V #°L,RO 

TRAP CS$CLCK 

KYES 

#°P,RO 
TRAP  CS$CLCK 
JSR R1,LPNTF 
.WORD NOCLOCK 
.WORD PNT.CT 
MOV KW.BRL,-(SP) 
MOV #kwW111,<(SP) 
MOV kw. VEC, <(SP) 
MOV #3,-(SP) 
TRAP  C$SVEC 


Vv 
ADD #10,SP 





INITI 


= 


— —— ts —) od 
oa 
So ooooo°o 
S Ronn NoNNy 
ooocoo 
SISSSS 
MOA & 
—~- «5D 
S 22 § 
— £N Oo 
= s28 8 
So "nw ia) 


IZE $ 


1 
3 020670 013737 002146 002156 
4 osoers 005077 161254 
5 020702 005037 002160 
6 020706 012701 005474 
7 020712 012702 000010 
8 020716 005021 
9 020720 005302 
° 020722 001375 
2 
3 
4 
5 

020734 013703 002156 


Mrorrnnn—— 
VEWN=O0ON 
o 
~ 
o ooo 
Rw ues 
o 
R832 


000004 
28 020754 042701 177000 
000002 


001002 
31 020766 000137 021414 
32 020772 062703 000054 
33 020776 000760 


Oe eh yt 
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s INITIALIZE CONTROLLER TABLE STORAGE WITH A WORD OF ZEROS 


MOV FFREE,CTABS sSTORE START OF CONTROLLER TABLES 
CLR @CTABS ‘ZEROS MARKS END CONTROLLER TABLES 
CLR CTRLRS [CLEAR CONTROLLER COUNT 
MOV #IPAORS,R1 + R1 => IP ADDRESS 
MOV #8. ,R2 + R2 1S A COUNTER 
1$: CLR (Rij : CLEAR ENTRY 
DEC R2 : DONE? 
BNE 1$ : IF NOT, BRANCH 


GET A P=TABLE FROM DRS 


CLR R2 sLOGICAL UNIT NUMBER IN R2 
INIT4: GPHARD R2,R0 3GET POINTER TO A P-TABLE 
MOV R2,RO 
TRAP CSGPHRD 
BNCOMPLETE NXTTAB IGNORE IF NO TABLE RETURNED 


BCC NXTTAB 
SEE IF A CONTROLLER TABLE ALREADY EXISTS FOR CONTROLLER IN P-TABLE 


MOV CTABS,R3 GET ADDRESS OF CONTROLLER TABLES 
INITS: TST (R3) ZCHECK IF ANY MORE TABL 

BEQ NEWTAB sBUILD NEW TABLE IF FOUND ZERO WORD 

CMP (RO), (R3) CHECK IF SAME UNIBUS ADDRESS 


ASSUME C.UADR EQ 0 
ASSUME HO.UBA EQ 0 


BEQ SAMTAB CHECK TABLE IF ALREADY EXISTS 

MOV C.VEC(R3),R1 7GET VECTOR FROM EXISTING CONTROLLER TABLE 

BIC #*C<CT.VEC>,R1 

bore $B. VEC CODD sSEE IF DIFFERENT VECTOR 

JMP SAMVEC sERROR, CAN'T HAVE TWO UDA’S WITH SAME VECTOR 
1$: See SS ee ener ~~; MOVE TO NEXT TABLE 





o 
ZS 


OARNS 
Sssss 


Nm 


nm 
mm 
So 


040 


SOOCCOoCoOoOoCoOoCOoOoOoOoOOoOoCOoOoOSooOOo 


20 OD NAUSWN —$O OONAUEWN “SO OONOUSWwh— 
MN Rororoenononrs 


WWWIRIDINININININIDNINID) 2 2 Ot Oo oo 
ooo 
SNSRBS RIFESLSEEES 


oooooo 
a ot Ite —CCCOOO 


oo 
== 


S22 
—_—d od 
uw 
S 
2S 


ooo 

bt 

ak 
—WNOnNonnNo 


soees 
Sesenuucs 


ooooo 
—— 
ViVi = RoPUn: 
NWWNS NNNO 


So 


Sssss 2 
==3WNONM Orn 


N@-NVUW Wee oe 


000010 
003474 


000026 
011744 


000004 


000002 


002160 
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sBUILD A CONTROLLER TABLE 


NEWTAB: MOV 
MOV 


1$: 


INIT?: 


#8. ,R3 
#IPADRS ,R4 

TST (R4) 

BEQ 2s 

TST (R4)+ 

DEC R3 

BNE 1$ 

BR 


3$ 
MOV (RO), (R4) 
MOV #C-S1ZE/2,R1 


MOV R2,(R1)+ 
MOV_HO.BRL(RO) ,R4 
SWAB R4 

ROL R4 

BIS HO.VEC(RO) ,R4 
MOV R4, + 

MOV HO.BST(RO),(R1)+ 
MOV #4037, (R1)+ 

MOV #UDASRV, (R1)+ 
MOV #16. ,R3 

CLR (R1)+ 

DEC R3 

BNE INIT? 
INC CTRLRS 
CLR (R1) 
BR NXTTAB 


SEQ 0140 


:R3 IS A COUNTER 

7R4 => IP ADDRESSES 

: FOUND AN OPEN ENTRY? 

: IF $0, GO FILL ENTRY 

: NEXT ENTRY 

: SEARCH THROUGH ENTIRE TABLE? 
: BRANCH 


Sete te tee 
Lome 
nn 


: ABLE FULL 

: STORE ENTRY INTO TABLE 

[GET WORDS IN CONTROLLER TABLE 
TALLOCATE SPACE FOR IT 

SSTORE UNIBUS ADDRESS 

: NUMBER 


:PuT CUSR RO,UDASRVI 


:_ IN L 
sCLEAR POINTERS TO DRIVE TABLES, 
: TIMEOUT COUNTER, FLAGS, REF. NUMBER 


LOOP TIL ALL CLEARED 
sCOUNT THE CONTROLLER 
sCLEAR TABLE END MARKER 
zsNOW GO TO NEXT P-TABLE 


SEQ 0141 

INITIALIZE S 

1 SHOULD BE SAME CONTROLLER, CHECK THAT OTHER PARAMETERS MATCH 
| 3 021116 016004 000004 SAMTAB: MOV HO.BRL(RO) ,R4 :GET BR phe FROM P=TABLE 

4 021122 000304 Ho " R4 P TO HIGH BYTE 

5 021124 006104 L R4 SHIFT QNE MORE TO LEFT 

6 021126 056004 000002 BIS HO.VEC (RO) ,R ADD VECTOR ADDRESS 

‘ asi tes ses tf 000004 P R4,C.VECC(R Ri) COMPARE WITH CONTROLLER TABLE 

9 021140 026063 000006 000006 CMP HO.BST(RO),C.BST(R3) ;COMPARE BURST RATES 

10 021146 001402 BEQ NXTTAB 

\ 021150 0001357 021344 18: JMP CTABER FATAL ERROR IF NOT SAME 

se 3GET NEXT P-TABLE 

15 021154 005202 NXTTAB: INC R2 z INCREMENT LOGICAL UNIT NUMBER 

16 021156 023702 002012 CMP LSUNIT,R2 ZCHECK IF GOT ALL TABLES 

4 021162 003261 BGT INIT4 :IF NOT, GO BACK FOR NEXT 

19 021164 012701 000001 MOV #1,R1 sALLOCATE SPACE FOR ZERO END WORD 

20 021170 0047357 011744 CALL ALOCM ZAFTER CONTROLLER TABLES 


WhO CONGO WwW 


Ss 
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s;NOW BUILD DRIVE TABLES 


1174 005002 CLR R2 sLOGICAL UNIT NUMBER IN R2 

1176 INIT8: GPHARD R2,RO :GET POINTER TO A P=TABLE 

1176 010200 MOV R2,RO 

1200 104442 C$GPHRD 

1202 BNCOMPLETE INIT14 :1F NOT AVAILABLE, GO GET RAEXT 

1202 103040 BCC INIT14 
:FIND CONTROLLER TABLE 

1204 013703 002156 MOV S.R3 :GET ADDRESS OF CONTROLLER TABLES 

1210 021013 INIT10: CMP Oo (R3) :CHECK IF SAME UNIBUS ADDRESS 

1212 001403 BEQ INIT11 sBRANCH IF TABLE FOUND 

1214 062703 000054 ADD #C.SIZE,R3 :MOVE TO NEXT TABLE 

1220 000773 BR INIT10 


mm a = a oe 
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coy DECO UDA=50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE 132 SEQ 0143 
INITIALIZE SECTION 


o 
zS 


sBUILD DRIVE TABLE 


1 

2 

3 021222 0912701 000015 INIT11: MOV #D.SIZE/2,R1 GET SIZE OF DRIVE TABLE 

4 021226 004737 011744 CALL _ALOCM sALLGCATE SPACE FROM FREE MEMORY 

5 ; RO POINTS 19 P=-TABLE 

6 ; Ri POINTS TO DRIVE TABLE 

4 : R3 + yt A TO CONTROLLER TABLE 

8 : a IS_UNIT NUMBER 

9 021232 010337 003302 Vv R3,TEMP sSAVE CINTROLLER TABLE ADDRESS 

10 ZIN CASE AN ERROR IS DETECTED 

11 021236 062703 000020 ADD #C.DRO,R3 BUILD POINTER TO C. Ye ENTRY IN CONTROLLER TABLE 
12 021242 012704 000010 MOV #8. ,R4 3;GET MAX COUNT OF DRIVES ON ONE CONTROLLER 
13 021246 005713 INIT12: TST (R3) ;CHECK IF ENTRY CONTAINS POINTER TO DRIVE TABLE 
14 021250 001411 BEQ INIT13 

15 021252 026033 000010 CMP HO.LDR(RO) ,a(R3)+ sCHECK DRIVE NUMBER IN DRIVE TABLE 

16 021256 001902 BNE 1 

17 021260 000137 021360 JMP MLDRER a F TWO P=TABLES POINT TO SAME DRIVE 
18 021264 005304 1$: DEC R4 ‘COUNT DRIV 

19 021266 001367 BNE INIT12 cIF “aes DR VE i" EXIST, 

20 021270 000137 021376 JMP TOOMER THEN REPORT ERR 

$3 geste 010113 INIT13: MOV R1,(R3) ;LOAD prive TABLE POIN TER 

23 021302 010221 MOV R2,(R1)+ ;LOAD UNIT NUMBER 


276 016021 000010 MOV HO.LDR(RO),(R1)+* sLOAD DRIVE NUMBER 


a ner ee a ee a.  - -  e 














L 

} :GO TO NEXT DRIVE TABLE 

3 021304 005202 INIT14: INC R2 ; INCREMENT LOGICAL UNIT NUMBER 

4 021306 023702 002012 CMP LSUNIT,R2 sCHECK IF GOT ALL TABLES 

2 021312 003331 BGT IN IT8 7IF NOT, GET NEXT TABLE 

‘ ;SAVE CURRENT PARAMETERS TO FREE MEMORY 

9 021314 013737 002146 002152 INIT15: MOV FFREE,FMEM SAVE START ADDRESS 

19 021322 0137357 002150 002154 MOV FSIZE,FMEMS zSAVE SIZE 

12 021330 INITXX: SETPRI #PRIOO ; SET RUNNING PRIORITY TO ZERO 
021330 012700 000000 MOV 
021334 104441 TRAP 

14 021336 CLOSE sMAKE SURE DATA FILE IS CLOSED 
021336 104435 TRAP 


EXIT INIT 
TRAP 
WORD 


#PRI00,RO 
CSSPRI 


C$CLOS 


CSEXIT 
L10937-. 


—a 


SEQ 0144 
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|INITIALIZE SECTI 
1 DIFFERENT | VECTORS, BR LEVELS OR BURST RATES FOR ONE CONTROLLER 
é 021344 010305 CTABER: sGET CONTROLLER ADDRESS 
021346 ERRSF 1, ,ERROO1 
021346 104454 TRAP  CSERSF 
021350 000001 .WORD 1 
| 021352 000000 “WORD 0 
021354 010770 “WORD ERROO1 
4 021356 DOCLN 
: 021356 104444 TRAP  C$DCLN 
é TWO P-TABLES FOR SAME DRIVE 
7 021360 013705 003302 HLDRER: MOV TEMP,RS :GET CONTROLLER ADDRESS 
8 021364 ERRSF 2,.ERROO2 
021364 104454 TRAP  CSERSF 
021366 000002 .WORD 2 
021370 000000 “WORD 0 
021372 011006 “WORD ERROOZ 
9 021374 | DOCLN 
“ 021374 104444 | TRAP  C$DCLN 
1 ;MORE THAN EIGHT DRIVES SELECTED ON ONE CONTROLLER 
13 021376 013705 003302 TOOMER: MOV TEMP,RS :GET CONTROLLER ADDRESS 
14 021402 ERRSF 3,.ERROO3 
021402 104454 TRAP CSERSF 
404 000003 «WORD 3 
021406 009000 “WORD 0 
021410 011024 “WORD ERROO3 
15 021412 DOCLN 
ss 021412 104444 TRAP  CS$DCLN 
7 :TWO UDA'S USE THE SAME VECTOR 
19 021414 010305 SAMVEC: MOV R3,R :GET CONTROLLER ADDRESS 
20 021416 ERRSF a 2RRGOB 
021416 104454 TRAP  CSERSF 
021420 000010 .WORD 
021422 011100 “WORD ERROOS 
021424 000000 “WORD 0 
21 021426 DOCLN 
021426 104444 TRAP  CSDCLN 


——_—_--_—_-- 


CZUDECO UDA=50 DISK FORMATTER MACRO V04.00 30~-AUG-82 12 


INITIALIZE SECTION 


| 
| 
| 
| 
| 
| 


1 0214 
091230 


21460 


oooooo 


CONAUESWA OOO NAUSWN OC DONOUS wr 
POPOPOPOPOPONIPONYNPININPSNYNIPNONY 
ee me ee ee ed ed ed ed td od od — 
walvaleal aleah al 


SARSISSSRSSRSSEESKRERSRSSNSRVO 


SOOOSSOSSSOSSSOSSSCOSSOSOSoooooooooooooooecooo 
™ 


RRINNININNNNNNNNNNNNNNNNNINN 
223 th hh 


32 

33 

34 

35 610 
36 021614 
37 021616 
38 021622 
39 021626 
40 0216 
41 634 
4g 640 
& 

44 021644 
45 021650 


w 
Rue 
NOoOnWwNM 


™m 


= 
SSSSsxSSnSsnsS 
VM AU = OO Ut = UIP 
NVEUNVEUNVEVON 
oVscnscnss 
=WS=WS2WSW 


SSRIS 
SAAT SSES 
oo Noo 


S2 S==eSs=s8e2 


016230 


003344 
000012 
000061 
000012 
000060 


000055 
003450 


003330 





DATE: 


DAY: 


misma T % 
7:58:39 PAGE a36° 


GMANID DATEQ,DATEI,A,-1,1,11.,YES 


:GET DATE 


10000$: 


MOV #DATEI,RS ;GET POINTER TO ANSWER 
CMPB (R5),#°0O 


5) 


D 
MOV #12. ,R4 
MOV #MONTHS ,R3 


CLR RO 
CMPB (R5),(R3)+ 
BEQ MON2 


INC RO 
CMPB 1(R5),(R3)+ 
BEQ MONS 


INC RO 
CMPB 2(R5),(R3)+ 
BEQ MON4 


BN 
PNTF DATEX 


BR DATE 

MOV #DATEO,R1 
MOV R4, 

CMP R3,410. 
BLO MON6 

MOVE #°1,(R1)+ 


MOVB #*=,(R1)+ 
ADD #DAYS-1,R4 


MOV #DATEI,R3 
CLR RO 


GET NUMBER OF MONT 
;GET POINTER TO MON 


GET POINTER TO DATE FOR FORMATTER 
H NUMBER 


GET COPY OF MONT 
; IF 10 OR GREATER 


sPUT A °'I"* IN OUTPU 


H 
TH NAMES 


T 


CONVERT MONTH NUMBER ie ASCII 


:PUT A NUMBER IN 
:PUT A "=" IN OUTPU 
:GET POINTER TO DAY 

; INDEXED BY 


OUTPU 
T 


S_IN MONT 


H 
NUMBER OF MONTH 


:GET POINTER TO DATE INPUT 


TRAP CS$GMAN 
R 0000S 
WORD DATE! 
«WORD TSCODE 
WORD DATEQ 
WORD =1 
«WORD TSLOLIM 
WOR TSHILIM 
JSR_R1,LPNTF 
«WORD DATEX 
-WORD PNT.CT 


SEQ 0146 


pana Oe ee 
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INITIALIZE SECTION 


| 
! 
| 


46 021652 121327 006955 DAY1:  CMPB (R3),#'= 
47 021656 001413 BEQ DAY 
48 021660 111321 MOVE (R3),(R1)* ;PUT DAY CHARACTER IN OUTPUT 
| 49 021662 006300 ASL RO 
| 50 021664 010002 MOV RO,R2 
| 51 021666 006300 ASL RO 
| 52 021670 006300 SL RO 
| 53 021672 060200 ADD R2,RO 
54 021674 112302 MOVB (R3)+,R2 
55 021676 162702 000060 SUB #'°0,R2 
56 021702 060200 ADD R2,RO 
57 021704 000762 BR DAYi 
58 021706 120014 DAY2:  CMPB RO,(R4) 
| 59 021710 101327 BHI DERR 
60 021712 005760 TST RO ;SEE IF DATE IS ZERO 
| 61 021714 001725 BEQ DERR sERROR IF SO 
62 021716 062705 000003 ADD #3,R5 
63 021722 121527 000055 CMPB (R5),#°=  ;CHECK FOR ‘="" BETWEEN DAY 
64 021726 001320 ERR + AND YEAR IN OUTPUT 
65 021730 112521 MOVB (R5)+,(R1)+ sPUT "‘="" IN OUTPUT 
66 021732 010504 MOV RS,R4 :GET COPY OF INPUT STRING POINTER 
67 021734 005000 CLR RO 
68 021736 005002 CLR R2 
69 021740 121427 000060 YER1:  CMPB (R4),#°0 
70 021744 103416 BLO YER2 
1 021746 121427 000071 CMPB (R4),#°9 
72 021752 101013 BHI YER2 
73 021754 300 SL RO 
74 021756 010003 MOV RO,R3 
021760 006300 ASL RO 
76 021762 006300 ASL RO 
021764 060300 ADD R3, 
78 021766 112403 MOVB (R4)+,R3 
79 021770 162703 000060 SUB #°0,R3 
80 021774 060300 ADD R3,RO 
81 021776 005202 INC 
82 022000 000757 BR YER1 
83 022002 105714 YER2: TSTB (R4) 
84 022004 001271 BNE DERR 
85 022006 020227 000002 CMP R2,#2 
86 022012 001407 BEQ YER3 
87 022014 020227 000004 CMP R2,84 
88 022020 001263 BNE DERR 
89 022022 020027 003554 CMP RO,#1900. 
90 922026 103660 BLO DERR 
91 022030 000413 BR YERS 
92 022032 012702 003465 YER3: MOV #YEAR19,R2 
93 022036 020027 000106 CMP RO,#70. 
94 022042 103002 BHIS YER4 
95 022044 012702 003470 MOV #YEAR20,R2 
96 022050 105712 YER4: STB (R2) 
97 022052 001402 BEQ YER 
98 022054 112221 MOVB (R2)+,(R1)+ 
022056 000774 BR YER4 
100 022060 112521 YERS: MOVB (R5)+,(R1)+ 
101 022062 001376 BNE YERS 
102 022064 000207 RE TURN 
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CO UDA=50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE 135-2 
ALIZE SECTION 
03 
04 022066 ENDINIT 


2066 
022066 104411 


L10037: 


TRAP 


CSINIT 


SEQ 0148 





---e er 


CZUDECO eet iee DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE gl? SEQ 0149 





; THIS, CODE 1S EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE IF 
: THE "ADR S SET. THE UNIT(S) UNDER TEST ARE CHECKED TO 
: SEE IF THEY WILL RESPOND. THOSE THAT DON'T ARE IMMEDIATELY 

; DROPPED FROM TESTING. 


{ 
| 
| 
10 022070 BGNAUTO 
; 022070 LSAUTO:: 
12 022070 ENDAUTO 
022070 L10040: 


022070 104461 TRAP CS$AUTO 





por re 


! 


i 
' 


| 
| 
: 
| 


022672 
022072 


02207 
02207, 
022074 


1 
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00 
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NO 
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104435 
004737 012064 


104412 
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CLEANUP CODING SECTION 


-SBTTL CLEANUP CODING SECTION 


3 "THE CLEANUP CODING S 
;_AFTER THE HARDWARE T 


BGNCLN 


CLOSE 
CALL RESET 
ENDCLN 


ENDMOD 


ECTION CONTAINS THE CODING THAT IS PERFORMED 
ESTS HAVE BEEN PERFORMED. 


LSCLEAN:: 
sCLOSE DATA FILE 
;RESET ALL UDAS 


TRAP 


L10041: 
TRAP 


C$CLOS 


CSCLEAN 


SEQ 0150 





CZUDECO UDA-50 DISK FORM 
TEST 1: DUP >ROGRAM DRIVE 
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PIPIPIPINININPINIPININIPINININININININN 
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022174 
20 022176 


27 022254 
28 osssee 
$0 022244 

0 022246 








B=FS 


SNVMNUME SI 
eR 


So 
Ww 


oO 
PS) 


000003 003230 


000010 003230 11G0: 


002012 000001 


016230 


003254 


002156 


000020 
000010 


. — 7 cet i 
arver MACRO V04.00 30-AUG-82 12:58:39 PAGE 138° 


BGNMOD 

BGNTST 

BIT #SO.FMT MODE 
BNE TIFMT 


BCOMPLETE 11G0 


ERRSF 10,,ERRO10 


EXIT TST 

BIT #SO.STR,MODE 
BEQ TICNS 

cMP rs Aad 


BEQ TIRS 
ERRSF 9,,ERROO9 


EXIT TST 


PNTF FILNAM 


GMANID FILNAQ,FNAME2,A,-1,1,10.,NO 


OPEN #FNAME2 


BR T1 


FMT 

S: MOV CTABS,RS 

" ADD #C{DRO,R4 
MOV #8. 

: MOV (R45 


R2 
BEQ TISERN 


-SBTTL TEST 1: DUP PROGRAM DRIVER 


GET DRIVE TABLE POINTER 


zGET FILE NAME 


TRAP 


CSMANI 
T1G0 
CSERSF 
10 

0 
ERRO10 


CSEXIT 
L10042-. 


CSERSF 
9 


0 
ERROOS 


CSEXIT 
L10042-. 


JSR _R1,LPNTF 
LNAM 


WORD 


eWORD PNT.CT 
TRAP CSGMAN 
BR 10000$ 
WORD FNAME2 
«WORD TSCODE 
-WORD FILNAQ 
-WORD = 
WORD TSLOLIM 
WORD TSHILIM 
y #FNAME2,RO 
TRAP CSOPEN 
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‘TEST DUP PROGRAM DRIVER 


| 31 022250 PNTF SERNUM,D.UNIT(R2),(R5), (R2) 
50 011246 MOV (R2),=(SP) 
022252 011546 MOV (R5).=(SP) 
| 022254 016246 000002 MOV D.UNIT(R2) ,=(SP) 
| 022260 004137 016230 JSR R1,LPNTF 
022264 004223 .WORD SERNUM 
022266 000006 -WORD PNT.CT 
32 022270 ASSUME C.UADR EQ 0 
33 099970 ASSUME D.DRV EQ 0 
022270 TISER3: GMANID SERNQ,TEMP,A,-1,1,20..NO ;GET SERIAL NUMBER 
022270 104443 TRAP si 
022272 000406 10001$ 
022274 003302 WOR 
022276 000142 “WORD TS$CODE 
22300 003662 y 
022302 177777 “WORD =1 
022304 000001 “WORD TSLOLIM 
022306 000024 <WORD TSHILIM 
022310 10001$: 
35 022310 012701 003302 MOV #TEMP,R1 
36 022314 005000 CLR RO 
37 022316 105711 TISERG: TSTB (R1) 
38 022320 001410 BEQ TISERS 
39 022322 005200 INC RO 
40 022324 121127 000060 CMPB (R1),#°0 
1 022330 103416 BLO TISER 
42 022332 122127 000071 CMPB (R1)+,#°9 
43 022556 101767 BLOS Tiseré 
44 022340 000412 R TISER 
45 022342 020027 000024 TISERS: CMP RO,#20. 
46 022 103422 BLO TISER8 
47 022350 012701 003302 va 
48 022354 012700 003360 MOV #HIGHEST,RO 
022360 122120 TISER6: CMPB (R1)+,(RO)+ 
50 022362 001776 BEQ TISER6 
51 022364 103413 BLO T1SER8 | 
52 022366 TISER7: PRINTF #SERNX,#HIGHEST 
022366 012746 003360 MOV sHIGHEST -(SP) 
022372 012746 010600 MOV #SERNX, (SP) 
022376 012746 000002 MOV #2,-(SP) 
022402 010600 V 
022404 104417 TRAP  CSPNTF 
022406 062706 000006 ADD #6,SP 
a O55eie eso 000004 TISERS: Ap ye R2 ;PUT ANSWER INTO DRIVE TABLE 
5 022420 012701 003302 aTEMP,RI 
56 022424 112122 TISERY: MOVE (R14, (R2)+ 
57 022426 001376 BNE TISER9 
022430 005303 D 
59 022432 001402 BEQ TISERN 
022434 005724 TST (R4)+ 
022436 000702 BR TISER2 
62 022440 062705 000054 TISERN: ADD #C.SIZE,RS 
63 022644 005715 TST T (RS) 
64 022646 001271 BNE T1SER1 
65 022450 013737 002156 002162 TIFMT: MOV CTABS,TSTTAB :GET FIRST TABLE ADDRESS 
66 022456 013701 00216 MOV CTRLRS.R1 [RUN DM PROGRAM ON ALL CONTROLLERS 











sewers Hie —x ae 
mane YDA=50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE 138-2 
TEST 1: DUP PROGRAM DRIVER 
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par par peers 
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3399228 

Ww Sanu 
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Ss 
~ 
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002174 
002146 
00 


002164 


002200 


000034 
000014 
000014 


000014 
000014 


: FIND 5 Se CONTROLLER IS WHICH 


SEQ 0153 


MO N 
MOV FFREE ,DMPROG 
MOV #1,R1 : MUST READ AT LEAST ON DMPROG 
CALL ‘TINIT + READ DMCODE 
MOV URUN ,UCNT 
MOV TSTTAB,RS : POINT TO CONTROLLER TABLE 
CLR US5OUNI : CLEAR NUMBER OF UDASO'S 
TSTCNT: TST C.UNIT(RS) 
BMI 2s : IF UNIT DROPPED, BRANCH 
CALL  GTDUST : GET DUST STATUS 
CMP US2EXT,HC.MPK*P.DEXT(R4) ; IS IT A 52? 
BNE 1 : IF NOT, BRANCH 
BIS #CT.U52,C.FLG(RS) + SET FOR 52 
i. BR 2s 
BIC #CT.US2,C.FLG(RS) : SET FOR 50 
BIS #CT.U50,C.FLG(RS) 
INC USOUNI : KEEP TRACK IF WE NEED 70 READ UDASO FORMATTER 
2$: CLR aces) : INIT CONTROLLER 
ADD #C.SIZE,R5 : POINT TO NEXT CONTROLLER 
DEC UCNT : CONTINUE UNTIL DONE 
BNE TSTCNT 
MOV #CT.U52, TSTTYP sINIT CONTROLLER TYPE 
3$: MOV CTRLRS,UCNT : GET COMM AREA FOR EACH CONTROLLER 
MOV CTABS,RS 
MOV 06,R1 : GET DMSIZE 
MOV (R1) ,DMSIZE 
ADD 4(R15 ,DMSIZE 
mov TABS .TSTTAB : INIT PARAMETERS FOR RUNDM 
CALL RUNDM : RUN ALL CONTROLLERS OF ONE TYPE AT ONCE 
CALL RESPDM 
6$: ASL STTYP : NEXT CONTROLLER TYPE 
MOV FMEM, FFREE + RESTORE FREE MEMORY 
MOV FMEMS FSIZE 
BIT #ct.u50, TSTTYP : ALL DONE? 
BEQ 7$ : IF $O, EXIT 
TST USOUNI + DO WE CONTINUE FOR UDASO? 
BEQ 7$ : IF NOT, EXIT 
MOV 2,R1 
CALL TINIT : ELSE READ IN UDASO FORMATTER 
7$: EXIT TST 
TRAP = CSEXIT 
.WORD 110042-. 
ENDTST 
L10042: 
TRAP CSETST 
ENDMOD 


—_-—- em ee ee ++ --- 
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HARDWARE PARAMETER CODING SECTION 
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«SBTTL HARDWARE PARAMETER CODING SECTION 
BGNMOD 


"THE HARDWARE ee CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


BGNHRD 
«WORD L10043=LSHARD/2 
LSHARD: : 
FORMAT OF HARDWARE P-TABLE IS AS FOLLOWS: 
TABLE sSTART A TEBLE DEFINITION 
ITEM HO.UBA 2 : UNIGUS ADDRESS 
ITEM HO.VEC 2 ; UDA VECTOR 
ITEM HO.BRL 2 : BR LEVEL 
ITEM HO.BST 2 ; BURST RATE 
a HO.LDR 2 ; DRIVE NUMBER 








despatched rr ' 
erpeco UDA-50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE 140 SEQ 0155 
}HARDWARE PARAMETER CODING SECTION 


1 02276 GPRMA 4H.UBA,HO.UBA,0,160000,177774,YES sBUS ADDRESS 
022762 000031 - WOR 


TSCODE 
022764 rhe H.UBA 


:WO -UB 
022766 “WORD TS$LOLIM 
022770 177776 “WORD TSHILIM 
2 022772 GPRMA H.VEC,HO.VEC,0,4,774, YES 3; VECTOR 
022772 001031 .WORD  TSCODE 
022774 023066 “WORD H.VEC 
022776 000004 “WORD TS$LOLIM 
023000 000774 “WORD TSHILIM 
3 023002 GPRMD H.BRL,HO.BRL,D,-1,4.,7.,YES ; BR LEVEL 
023002 002052 .WORD  TSCODE 
023004 023075 WORD H.BRL 
023006 177777 “WORD 7 
023010 000004 “WORD TSLOLIM 
023012 000007 “WORD TSHILIM 
4 023014 GPRMD H.BST,HO.BST,D,-1,0.,63.,YES | ; BURST RATE 
023014 003052 .WORD  TSCODE 
023016 023106 “WORD H.BST 
023020 177777 “WORD = 
023022 000000 “WORD TSLOLIM 
023024 000077 “WORD TSHILIM 
5 023026 GPRMD H.LDR,HO.LDR,D,-1,0.,255..YES ; DRIVE SELECT NUMBER 
23026 0040 .WORD  TSCODE 
023030 023130 “WORD H.LOR 
023032 177777 “WORD =1 
023034 000000 “WORD TSLOLIM 
023036 000377 “WORD  TSHILIM 
6 023040 ENDHRD 
EVEN 
, 023040 10043: 
8 023040 =: 125 116 111 H.UBA: .ASCIZ \UNIBUS ADDRESS OF UDA\ 
9 023066 126 105 103 H.VEC: -:ASCIZ \VECTOR\ 
10 023075 102 122 060 H.BRL: :ASCIZ \BR LEVEL\ 
11 023106 125 116 111 H.BST: <ASCIZ \UNIBUS BURST RATE\ 
12 023130 104 122 117 H-LDR: -ASCIZ DRIVE NUMBER\ 


ne a a a | + a ee 
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SOFTWARE PARAMETER CODING SECTION 
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bd 
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FWN OOO VWOurw 


25 023150 


000022 


000001 
00000 


000010 


-SBTTL SOFTWARE PARAMETER CODING SECTION 


‘ : THE SOFTWARE PARAMETER CODING og he tse: MACROS 

: THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
: MACROS $ ARE NOT EXECUTED AS VMACHINE INSTRUCTIONS BUT_ARE 
; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
: MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
: WITH THE OPERATOR. 


BGNSFT 
a L10044-L$SOF T/2 
LSSOFT: 

FORMAT OF SOFTWARE P=TABLE IS AS FOLLOWS: 
TABLE START A TABLE DEFINITION 
ITEM SO.BIT 2 YES/NO ANSWERS 

SO.FM1 = BITO ; REFORMAT MODE 

SO.FM2 = BIT1 3 (AGAIN) 

SO.FMT = SO.FM1+SO.FM2 
SO.CNS = BIT2 3; RECONSTRUCT MODE 
SO.STR = BITS ; RESTORE MODE 


END 


i ee + - +--+ SC -  -— — 
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ee — ———— a 
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SOFTWARE PARAMETER CODING SECTION 












1 023150 GPRML S.FMT,SO.BIT,SO.FM1,YES | ;REFORMAT? 
023150 000130 WORD TSCODE 
023152 023365 “WORD S.FMT 
023154 000001 “WORD SOF M1 
2 023156 XFERT SWEND 
023156 017024 WORD  TSCODE 
3 023160 GPRML S.NRF,SO.BIT,SO.FM2,VYES | ;AGAIN = REFORMAT? 
023160 000130 WORD TSCODE 
023162 023214 “WORD S.NRF 
023164 000002 “WORD SO.FM2 
4 023166 XFERT SWEND 
023166 013024 WORD TSCODE 
5 023170 GPRML S.CNS,SO.BIT,SO.CNS,YES  ;RECONSTRUCT 
023170 000130 WORD TSCODE 
023172 023444 “WORD S.CNS | 
023174 000004 “WORD SO.CNS | 
6 023176 XFERT SWEND 
023176 007024 .WORD TSCODE | 
7 023200 GPRML $.RST,SO.BIT,SO.STR,YES | ;RESTORE? 
023200 000130 .WORD TSCODE 
023202 023507 “WORD $.RST 
023204 000010 “WORD SO.STR 
8 023206 XFERT SWEND 
023206 003024 WORD TSCODE 
9 023210 DISPLAY S.NOF s WARNING 
023210 000003 WORD TSCODE 
023212 023630 “WORD S..NOF 
10 023214 SWEND: ENDSFT ‘ 
-EVEN 
44 023214 110044: 
12 023214 015 ~~ 012 S.NRF: .BYTE 15,12 
13023216 = 116i«‘isi(ité«éi “ASCII\NOT USING EXISTING INFORMATION WILL DESTROY THE FACTORY BAD SECTOR\ 
14 023320 015-—s«é*O'T12 “BYTE 15,12 
15 023322 4360 111'i‘«*2iti(té«i2 “ASCII\INFORMATION ON THE DISKS.\ 
16 023353 015 te “BYTE 15,12 
17 023355 101 10 101 “ASCIINAGAIN = _\ 
18 023365 122 105 106 S.FMT: <ASCIZ\REFORMAT USING EXISTING BAD SECTOR INFORMATION\ 
19 023444 122 105 103 S.CNS: <ASCIZ\RECONSTRUCT BAD SECTOR INFORMATION\ 
20 023507 «104 «S117, = s«040s S-RST: :ASCII\DO YOU HAVE A FILE ON THE SYSTEM LOAD DEVICE\ | 
21 023563 «= (015, —itiéTP “BYTE 15,12 
22 023565 040 #103 #117 “ASCIZ\ CONTAINING BAD SECTOR INFORMATION\ 
23 023630 (131 117 125 S.NOF: -ASCIZ\YOU CANNOT PROCEED WITHOUT SUCH A FILE.\ 
24 023700 122 105 123 ZASCIZ\RESTART PROGRAM AND SELECT TO REFORMAT OR RECONSTRUCT DISK.\ 
25 023774 000 “BYTE 0 
26 “EVEN 


-DSABL AMA 
-PSECT END 


— ee. 
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PATCH AREA 


1 -SBTTL PATCH AREA 

: SPATCH:: 

6 000050 «REPT 40. 

5 -WORD 0 

§ -ENDR 

8 000120 LASTAD 

-EVEN 

000120 000142" eWORD TSFREE 
000122 000007 -WORD TSSIZE 
000124 LSLAST:: 


10 000124 ENDMOD 


D 13 
Sen A tte DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE 144 SEQ 0159 








1 000124 BGNSE TUP 1 
3 000124 BGNPTAB 
000124 000000 «WORD 0 
000126 000005 «WORD 110047-./2-1 
000130 110045: 
000130 172150 -WORD 172150 ; UNIBUS ADDRESS 
000132 000154 WORD 154 : VECTOR ADDRESS 
000134 000005 -WORD 5. ; BR LEV 
000136 000077 -WORD 653. ; UNIBUS BURST RATE 
000140 -WORD 0. ; LOGICAL DRIVE NUMBER 
000142 ENDPTAB 
000142 L10047: 
000142 ENDSETUP 


0.) ee ee ee ee ee 
—“OVONOVEWN —OVDOONOUS 


000001 - END 
ERRORS DETECTED: 0 


VIRTUAL MEMORY at ‘rer WORDS ( 115 PAGES) 
DYNAMIC MEMORY ILABLE FOR 70 PAG 
A:ZUDECO,B: DUDECO/C= [20,0]SVC34R.MLB/P:1,ZUDECO.DOC ,ZUDECO.MAC 
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108-264 


BLOCMD 63-18 


108-154 


106-3 


74-44 


32-104 
28-84 


CSAU 


136-12 


CSAUTO 28-84 


28-84 61-12 66-19 71-9 111-21 8118-12 = 121-27 


CSBRK 


CSCEFG 28-84 


CSCLCK 28-84 


28-84 


CS$CLOS 28-84 


CSCLEA 


133-14 3=137-11 


83-20 


CSCLP1 28-84 
CSCVEC 28-84 


127-18 134-4 134-9 134-15 = 134=21 


70-7 


CSDCLN 28-84 





28-34 
8-84 gi-¢8 71-25 
121- 122-5 


CSE 8-84 
CSERSF 25-68 57-7 62-20 
CSER 


CSESUB 

CSETST 28-84 138-138 

CSEXIT 28-84 133-16 138-11 
C$GETB 28-84 66-21 66-26 


CSGMAN 28-84 135-1 138-20 
CSGPHR 28-84 128-15 131-4 


CSINIT 28-84 135-104 


CSPNTIB 28-84 102-14 
CSPNTF 28-84 102-12 138-52 
CSPNTS 28-84 102-18 
CSPNTX 28-84 55-70 102-16 
C$QI0 28-84 

28-84 


CSSPRI 28-84 133-12 
CSSVEC 28-84 61-11 63-9 


-84 
C.BST 43-19% 117-17 130-9 
C_DRO 43-374 72-15 85-12 


C.DR3 406 
C.DR4 43-414 
C.DR5 43-424 

. 43-434 


C_FLG 43-224 64-23" 64-29 


74-40 74-47% 74-50% 


138-95* 138-96" 
C.JAD 43-214 


en coennempeantecnsemte — 
ss UDA=50 DISK FORMATTER ‘ee V04.00 30-AUG-82 12:58:39 PAGE 5-2 
CROSS REFERENCE TABLE (CREF V04.00 ) 


72-36 73-21 74-8 78-22 


70-6 134-3 134-8 134-14 


138-17 = 138-137 
67-7 68-23 68-30 69-1 


138-34 


55-24 55-28 55-32 55-36 


55-97 55-101 55-106 55-110 


127-14 127-16 


105-20 118-27 127-59 


132-11 138-27 


71-11 71-14 71-16 71-39 
74-62* 74-63 74-69* 74-70 


SEQ 0161 


80-30 107-3 111-29 112-5 116-35 117-11 8118-33 


134-20 138-10 138-16 


69-11 69-14 83-26 


55-40 55=44 55-48 55-52 55-56 55-65 55-71 
55-114 55-118 55-122 55-126 55-130 


71-44 71-48" 72-12 73-6 73-26 74-35*  74-39* 
106-13* 106-14* 109-21 111-17 112-1" 138-85* 138-86+ 








an ae 
cones UDA~50 DISK FORMATTER MACRO VO4.00 30-AUG-82 12:58:39 PAGE $-5 
CROSS REFERENCE TABLE (CREF V04.00 ) 


C.JSR 43-208 63-8 105-19 
C.PRI 43-4684 74-65 74-67 
C.REF 43-498 73-19 ys at 


C.RING 43-368 55-146 59-15% 
C.SIZE 43-514 -37 - 
C.T0 43-458 71-37 74-55 
C.TOH 43-46 71-34 111-24 
C.TOT 43-478 71-30 - 
C.UADR 43-12 86-16 118-25 


64-25 
C.VEC 43-164 63-5 105-16 
CALRS 90-6 


CALRE 90-3 90-4 90-5 


CF.ATN 39- 
CF LMSC $9-Se0 
CF.OTH 39- 
CF.S 39- 


# 
CLOSEF 65-114 70-1 127-21 


CLRBUF 74-16 74-46 8 110-164 


CON.N1 89-108 9-12 
CON.0 89-34 91-21 
CON.QU 88-34 88-7 91-21 


84- 84-18 86-21 
125-35 
CPNTX 19e-t5 102-15 102-17 
CR -128 - 86-21 


43-148 


74-72% 74=73* 
9-17 


2 3 
1-13 138-79 
118-14 128-27 


92-48 

88-6 88-13 
102-194 

89-10 93-7 
109-21 

74-62 =111-17 
74-35 74-40 
74-39 74-62 


74-39 74-70 


9 
138- 138-123 
138-98 138-109 


od 


16-20 117-3 
38-104 


130-7 


89-10 89-30 93-7 94-7 


94-7 102-8 


112=1 114-19 
74-47 74-50 106-13 


117-22 


101-13 


118-20 


101-22 


102-54 


125-27 


SEC 0162 


125-32 





H 13 
MATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE Sa SEQ 0163 
CREF V04.00 ) 


53 


UDA=50 DISK F 

“REFERENCE TABLE 

43-178 $3 105-17 118-15 =: 128-28 
28 


ezunec 

CRO 

ce 1 

CTABS 48-15# 128-3 128-4e 128-20 131-9 138-25 138-65 138-111 138-115 
CTRLRS 48-168 128-5* 129-29 138-66 138-110 138-116 

D.DRY 44-98 19-36 86-17 


= oR 
DO 


D.UNIT steer 72-19 72-25* 85-14 86-15 138-31 
DATE 127-37 135-14 135-32 


DATEL 49-24 135-1 139786 133738 


135-6 135-10 135-12 «0135-14 = 135-314 135-59 135-61 135-64 1355-84 135-88 135-90 


28-8 
DIVIDE 79-38 100-39 101-7 104-164 125-19 125-21 125-23 
48-218 60-20 Gen16s 


DMFRST 42-478 68-11 68-21 
464 


DMPROG 48-194 62-13* 105-13 106-1 106-4 106-6 106-7 138-70" 138-112 
DMSIZE 48-20 138-113* 158-114* 
DMTMO 42-454 105-14 


a 
DQUEJP 79-21 79-224 79-29 
79-168 


oe 
DQUEX 79-19 ag iF 79-24 79-25 79-508 79-57 79-64 


79-48 
DOYES 79-55# 79-60 
DT.AVL 44-124 72-20 72-25 85-15 


DU. INF 
DU.QUE 42-324 
DU.SPC 42-374 74-6 





O_o ——o—Oe 


| 


Choss REFERENCE TABLE (CRiF 


DU.TER $3-338 
TYP 42-39% 74-4 
P 36-344 108-20 
SEND 28-84 
ESLOAD 28- 28-34 
EF.BBR 39-278 
F.BBU 39-288 
EF.CON 32-108 127-14 
EF.LOG 39-298 
F.NEW 32-108 
F.PWR 32-10# 127-16 
EF.RES 32-108 127-12 
EF.SEX 39-308 
EF.STA 32-108 127-10 
ERROO1 55-144 134-3 
ERROO2 55-184 134-8 
ERROOS 55-224 134-14 
ERROOG 55-268 57-7 
ERROOS 55-304 70-6 
ERROO? 55-344 62-20 
RROOS 55-384 134-20 
RROOD 55-424 138-16 
ERRO10 ~46# 138-10 
ERRO11 55-50# 
ERRO2ZO 55-544 61-28 
ERRO21 55-584 122-5 
ERRO2Z2 55-674 121-36 
ERs? 5-73# 117-11 
RRO24 55-874 116-35 
ERRO2S 55-914 120-44 
RROSO 55-954 71-25 
ERROS1 55-994 72-36 
RRO3S2 55-1034 74-8 
ERROSS 55-1084 73-21 
RROS4 55-1124 107-3 
ERROS6 55-1164 111- 
ERROS? 55-120# 112-5 
RR100 55-1244 78-22 
ERR101 55-1284 80-30 
ERR23A 55-76 55-83 
ERR23B8 55-77 55-814 
ERR23C 55-80 55-844 
ERRC 87-36 87-43 
ERRCHR 48-498 102-5* 
ERRD 87-45 91-21 
ERRME1 52-84 7-41 
ERRNL 52-44 102-10 
RRONE 52-3# 102-7 
ERRRSZ 89-18 90-124 
ERRRTB 89-21 90-34 
ERRTRM 75- 82-144 
EVL 32-108 
FSAU $334 
FSAUTO 28-84 136-10 
FSBGN 28-84 8-26 
55-54 5-58 


74-19 


118-33 


91-94 
102-12 


89-23 


90-12 


1 


-12 
-1 
6 


36 
31 
55 


102-14 
92-4 


102-16 


102-18 


1 13 
CZUDECO UDA-50 DISK Ser ge ee -00 30-AUG-82 12:58:39 PAGE S-5 





SEQ 0164 


55-50 
55-124 


SN 


, 


SEQ 0165 


J 13 
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138-137 138-138 
142-8 


124-9 
142-6 


) 
4-5 
8-138 


87 18 


a= 
38-1 
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60-1 61-31 64-28 65-1 83-19 127-20 


50-16 





SEQ 0166 


Kk 13 


FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE S-7 


F v04.00 ) 


|CROSS REFERENCE TABLE (CRE 


CZUDECO UDA=50 DISK 


i 
i 
i 





oO 
- ~~ 
2 2 
- - 
oO wm 2 
N ~ - 
nn s re 
- ~ al 
- - 
* 
o N i 
- ~ - 
o fT 6 
So wT lad 
- ~ nm 
- - 
S ~ 
' 7 4 ” 
~™N oS wT oO 
w - ~ ~N 
- - - 
s 
i wn 
wn — o a) 
‘ i] ] 5 
N oa wT wo 
wv So ™m N 
- - - 
4 
oa Q 3 
~m ~ ve) mm 
fi @ g 4 
~ (+) ~w wn 
~w oS ~ N 
- - - 
ee co [+o] 
- ~ wn Lal 
‘ ‘ ‘ 4 
N oO w wn 
w i=) ~~ N 
- - - 
o 
w wn ° = ~N be 3 
4 é d q 1 
So So 8 w So NN 
w w ~ w a) 
- - - - 
wn - oom ao = 
vw rT - ~N wn - ~w Msn w ~ 
§ o t a t i] i 66s i a 
So o Ss So Se) mm ow ooo oo Nw 
wv Tr Oo — So ~~ = vw vw wsr + nal 
- -f- - - - cre -— 
& * co 
~ No Or r- we 3 
mr ~ om -— T- Ns - ans MwasrwnencCu — 
4s ’ we! ge te | i) a a #6ee008s8 t 
orm Nu NO $ To no mM oR ooooo - 
ww wT wv Let ad -o ~~ Oe wvwvwvwvw ~ 
-— e- Fe - -- ore cere 
e 
Bey = “* “ Rog 3 
w o - oo we NO = Oo 
mw mm wom wu _ Mee CM wv Qo New Menu -- 
oes 68 i 4 $68 i) 0 t eee i! bad ‘oe 
corm0 om NO CO wn vwvwo eZ ~ mM KRODO ooo ne 
Mw wT TT OO f. ] reo -—-m - ~~ & On wrvwwwnm me 
Cer FF OE -f - orn Crees - 
~ « * oO RRR Ree 
o oOo on N wen-womm -co ™M Bd wToO aunts OWN os 
ecnmen ae a ah ol ~N SENN NRK N NRK KK TN WNC O -— Aew 
6008 6066868 é @etceonnes Gg a ee im | Lad 8 6eeé 
Ocdwced OMoONwWoOOOo Oo af NO DOWD oO w 2.2.0 DAAASOS ~ cme 
FOTO TTT ITTOwo co RMR OMWw co wo MPN, MMMM TM mm weicu 
cere e See ee - -- eee e Ke coer Ee 
ps Ba * 
Serre MK KNEE HK ONMeE RK Oenre iw e et aobeekbhew aku eres — ™N 
Surah SUSUATTIS NS DOSSCO LDS” OHE bbe DODDSDaAMODSSNGH DNR OND 
corer Cee ee Del el oe oe el - Del ee oe oe el ere Fe 
& 23523 222 RRR ee 
a0 CACAO ToS CERN S SPE AN AAR RA AR NR Oe Pood bbhchdehd 
errrnK-— - rere - 
<« a — NANeE > Ne Ne > QNNN SHI =) So - 
=e Bee ee a es ex SSS or we CRORE ERO RE NNN EFwwen w -2z2 a- 
eaaac 6 WOS99ES2QELOSwaqqesesens= zaaw q5005 > a r=zZ 
BS OS ammmWe ee eet OCU OCLEYEOLLEYL YULLE Isssos8 3845 
Tyr) = eee 8 ot > rs) ow - 
rcheycicicycpcicicicicjcicuicjtieytp eee ett setts ++++++3—- SSSSSesSooee Pea os ad ed ng Ot 


| 
| 
j 
' 
| 
} 
j 





SEQ 0167 
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ce 
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|CROSS REFERENCE TABLE (CREF v04.00 ) 
‘Lsauto $o-%¢ 136-104 


LSCCP 0. 28-344 
LSCLEA 28-34 137-8# 
L$CO 28-344 


LSDEPO # 
LSDESC at 50-174 


# 
LSDISP at 29-98 


LSDU # 
LSDVTY 28-34 50-124 
SEF a 


LSHARD 28-34 139-14 139-144 


LSHW 28-34 30-10 30-104 

LSINIT 28-34 127-84 

LSLAST 28-34 143-84 144-13 

LSLUN 28-34# 64-24% = 71-13* 85-14% 


LSPROT 28-34 126-10# 


LSREV 28-344 
LSSOFT 28-34 141-12 141-124 
L$SP 28-344 


$sw 28-34 31-10 31-104 


LSUNIT 28-344 86-13 130-16 133-4 138-14 


} eaee T 
‘'CZUDECO UDA=50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE :.4° 


SEQ 0168 


(see nn a ee 


SEQ 0169 


55-31 
55-96 


CZUDECO UDA-50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE 


CROSS REFERENCE TABLE (CREF v04.00 ) 


135-31 138-19 138-31 


127-53 


MD.SCL 39-84 


| 


B14 
CZUDECO UDA-50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE S-11 
CROSS REFERENCE TABLE (CREF V04.00 ) 










48-384 79-53 79-59 127-34 138-6 138-12 


MONT 135-174 135-30 
MON2 135-19 135-214 
MONS 135-22 135-244 
135-25 135-274 
MONS 135-28 135-334 
135-36 135-394 
MONTHS 49-74 135-16 
MSCP 36-314 
MSGPKL 55-1494 55-152 
MSGPKT 55-105 55-1454 
NCONF 87- 87-434 
NCONS 87-374 87-40 
NEWTAB 128-22 129-3# 
NOCLOC 52-114 127-53 


8 113-12* 118-26* 118-31 
10 130-154 


T “BH 28-34 
28-84 28-34 
28-84 28- 
OSBGNS 28-84 28-324 28-34 


28-34 
OSPOIN 28-84 28-32 28-324 28-324 28-324 28-34 
OSSETU 28-84 28-324 28-34 143-8 


73-8 74-58 


C 14 
CZUDECO UDA-50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE S-12 SEQ 0171 
CROSS REFERENCE TABLE (CREF V04.00 ) 


o> nk 30-168 
















OP. “194 108-21 

OP. 38-124 

OP.RD 38- 

OP.RLC 38-254 

OP.RPL 38-144 

OP.RSD 38-324 73-8 74-43 
OP.SCC 38-154 

OP.SEX 38-214 

OP.SHC 38-244 

OP.SSD 38-314 73-5 74-13 
OP.SUC 38-164 


OP. 

OSTRE 87-35 87-42 87-478 

OSTRNG 87-344 87-46 95-6 96-6 97-6 103-17 
P.BCNT 40-214 41-94 74-11 74-33% 106-5* 110-19* 


# 
P.CRF 40-178 41-44 73-19 109-17* 


P. # 
P.CYL 41-264 
P.DEXT 41-524 138-82 
P.DFLG 41-534 74-60 
P.D 40-504 


P.DP yb «3d 74-65 74-67 74-72 74-73 


P.GR 
ore rt at by 41-19% 41-354 


P.MEDI 41-214 41-374 
P.MLUN 41-174 41-334 
40-204 


-MOD 
P.OPCD 40-19%  41-6# 73-9 74-58 108-29* 
P.OTRF 40-278 41-134 
yoy rs add 106-6*  106-7* 


74 
P.SHST 41-234 be 4 


41-2 384 
P.STS atte 73-14 


41- 
106-11 


106-4* 





110-18* 


SEQ 0172 


D 14 
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V 


cr 
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CROSS REFERENCE TABLE (CREF 
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103-9* 103-11* 


118-27 
103-7* 


105-20 
103-5* 
69-6 
109-19 


63-9 
68-33 
109-18 


89-4 
67-12 
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32-104 
32-108 133-12 





—+ ——— SS ee _— —— 


} LZUDECO UDA-50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE 
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af al 35-68 a 


SEQ 0173 


IM2 -7# ‘Se-2° 
RNTIME 86-22 94-6 125-134 
RNTIMX tt 138. 54 
RSPDRP 71-26 72-12% = §=©72-37 73-22 74-9 74-27 


RSPDSP 74-26 75-34 75-9 
RSPERW 73-15 73-214 74-59 


SPMWR 
RSPNTO 71-31 71-33 71-36 71-38 71-544 
Ropone 71-12 72-34 72-33 74-57 74-75 


RS 73-278 

RS 74-41 74-504 
RSPOUS 74-48 74-514 
RS 71-53 74-534 


POU4 
RSPOUT 71-18 73-27 74-34 74-398 


pat y 71-40 71-42 72-364 74-61 74-76 


69-14 
RWRDE1 66-25 67-10 68-34 69-4 70-64 


SSLSYM 28-84 30-174 31-148 55-168 55-208 55-248 55-28% 55-32 55-364 55-408 55-448 55-484 55-52%  55-56# 
55-65 55-714 55-854 55-894 55-934 a 55-1014 55-1064 55-1104 55-114 55-1184 55-1224 55-1264 55-130 
113-144 114-214 124-9 135-1 135-1 135-1 135-14 135-1044 136-124 1357-154 138-20 138-20 138-20 138-204 
138- 138-34 138-34 138-344 138-1384 140-64 142-108 
S.CNS 142-5 142-198 
. 142-1 142-184 
Ss. 142-9 142-234 
S.NRF 142-3 142-124 
S.RST 142-7 142-204 
SA.A2 34-184 
SA.BST 35-234 
A.CM1 34-324 
am 34-274 
wm. 34-374 
SA.CNT 35-168 
SA.CTP 34-404 
A.DI 34-194 120-14 
SA.ERC 34-134 


SA.ERR 34-94 33-68 121-19 


MCV 35-154 120-38 
SA.MS1 34-314 
SA.MSE rik yA 
SA.MSG -264 
SA.NVE 35-5# 


—EEE 


SEQ 0174 


F146 
s-15 
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| CROSS REFERENCE TABLE (CREF V04.00 ) 


‘CZUDECO UDA-50 DISK 


142-5 142-5 142-5 142-7 142-7 142-7 
8 8 
8 8 
8 8 
5 5 
5 5 
5 5 
5 5 
5 5 


$8-36 
0-10 
55-22 
55-42 
55-67 
55-95 


142-3 
8 
8 
8 
5 
5 
5 
5 
5 


15-144 121-23 
127-32 
109-144 
142-1 
141-224 142-5 
141-214 
141-234 142-7 


27-28 
142-1 
142-1 
142-3 
138-6 
138-12 

83-31 
106-11 


28-34 


-Ammmmmn 


SEQ 0175 
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# 
UFREEZ 48-334 64-40* 72-3 72-13* 80-19 80-21% 
URNING 48-248 64-16% 64-36% 64-45 72-32* 

URUN 48-234 ca £m 71-8 138-68* 138-76 


42-2 142-4 142-6 142-8 

XSTRUE 28-84 42-2 142-4 142-6 142-8 
x1 53-54 55-15 
x10 53-154 55-47 
x1 53-4 55-125 
x101 53-474 55-129 
x11 53-164 55-51 
X1A 53-14 55-15 
x2 53 55-19 
x20 53-234 55-55 
X21 53-274 55-64 
X22 23-¢ 55-69 
X23A 53-314 55-74 
X238 53-354 55-78 
X24 53-364 55-88 
X25 53-384 55-92 
X2A 53-24 55-19 
x3 53-74 55-23 

53-4 55-96 
x31 53-41% 55-100 
x32 53-424 55-104 
X36 53-4 55-117 
x37 53-454 55-121 
X3A 53-34 55-23 
x4 53-84 55-27 
x5 53-104 55-31 
x7 53-114 55-35 
x8 53-124 55-39 
X8A 53-44 55-39 
x9 53-134 55-43 
XFRU 54-84 55-70 55-84 96-5 
XMSG1 = 54-14 55-145 
XMSG2 54-24 55-149 
XPKT1 54-3# 55-132 
XPKT2 54-6# 55-138 
XSA 54-74 97-5 
YEAR19 49-314 135-92 
YEAR20 49-32# 135-95 
YER1 135-694 135-82 
YER2 135-70 135-72 135-834 
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5-86 135-924 
5-94 135-96" 135-99 
5-91 135-97 «135-1004 135-101 





SEQ 0181 


I ne re cS enn —sose 
! 


N 14 

‘CZUDECD UDA=50 DISK FORMATTER MACRO V04.00 30-AUG-82 12:58:39 PAGE M-1 SEQ 0182 
CROSS REFERENCE TABLE (CREF V04.00 ) 

-BR 45-318 

AND 45-38 55-61 63-6 105-17 = 118-15 

ASSUME 45-39% 64-27 72-20 79-36 85-15 86-16 86°17 =127=31 = 128-24 3= 128-25. «138-32 =: 138-33 

BCOMPL 127-11) =127-13) «127-15 127-17 Ss 127-49 0 127-51: 138-9 


BGNMOD 32-3 26-3 139-3 
BGNMSG 55-14 55-18 55-22 55-26 55-30 55-34 55-38 55-42 55-46 55=5 
55-91 55-95 55-11 55-1 


55-54 55-58 55-67 55-73 
55-99 55-103 55-108 55-128 


BNCOMP 
BREAK 61-12 66-19 71-9 111-21 «118-12 = 121-27 


133-14 = 137-11 


57-8 70-7 127-18 «134-4 134-9 134-15 = 134-21 
END 33-29% 43-51 44-15 139-25 = 141-25 


N 31-16 §=125-38 137-17 138-139 143-10 
ENDMSG 55-16 55-20 55-24 55-28 55-32 55-36 55-40 55-44 55-48 55-52 55-56 55-65 55-71 55-85 
55-89 55-93 55-97 55-101 55-106 55-110 55-114 55-118 55-122 55-126 55-130 


ENTRY 91-3# 91-9 91-9 4 ae 3 91-9 91-9 91-9 91-9 91-9 91-154 91-21 91-21 91-21 91-21 


ERRDF 1-28 71-25 72-36 73-21 74-8 78-22 80-30 107-3 111-29) 112-5 116-35) 11711 118-33 = 120-44 
on 57-7 62-20 70-6 ts a ? 134-8 134-14 134-20 138-10 138-16 
GETBYT 66-21 66-26 67-7 68-23 68-30 69-1 69-11 69-14 83-26 


GPHARD 128-15 131-4 





SEQ 0183 
140-4¢ 
140-44 

55-564 
140-2 


140-4 
140-4 
55-524 


55-122# 55-1264 55-1508 
140-2 


135-104 136-12 
142-104 143-10 
140-34 

55-484 

140-14 


140-34 


140-3 
28-34 
142-10 
55-448 
5-1144 55-1184 
72-36 


102-184 138-52 
140-1 


55-1224 55-126 
126-164 135-104 


140-24 
142-74 
140-64 
140-54 


140-5 
5-1104 
37-439 137-178 138-1388 138-1598 140-64 
111-29 
138-344 140-1 
140-5 


140-4 

28-34 

28-34 

28-34 

125-384 126-16 
5-1064 

70-64 

107-34 

121-364 122-5 
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28-34 
28-34 
142-5 
55~ 

5-7 "1# 
140-44 


138-174 138-137 138-1374 
5-978 


138-174 138-137 138-1374 


102-144 102-16 
138-344 140-1 


138-34# 140-3 
62-204 
140-4 


124-94 
137-17# 138-138 138-1384 138-139 138-1394 140-6 


28-34 

28-34 

55-934 
140-4 


138-114 138-17 


MSEXSE 1353-164 138-114 138-174 138- 


8-204 138-34 
28-344 
38-17 
55-1104 55-114 
114-214 124-9 


138-118 1 
55-168 


55-894 3 
125-384 135-1044 136-124 1 


102-124 102-14 


04.00 ) 
28-34 


oo-% 

133-164 138-11 

135-14 138-20 
140-54 142-1 
55-70# 102-12 
74-84 


28-34 
28-34 
50-178 


MSDECR 30-17 


74-8 
117-11 
134-14 
140-24 


CROSS REFERENCE TABLE (CREF V 
MSEXCP 135-1 


CZUDECO UDA-50 DISK 


MSERRI 57-7 


MSDATA 28-34 


$$323333 Ao & 3 

a ~ one 
rachel bora eh ac oeRCh 
db dD dd ad dD DAUM OA 
NNNNNMNNMNAMNNRK CUM F 
eerere 

. +. > | moo 
=< > he oh hk oe 
eet se a) eee eee t 
00 00 60 60 60 A ee rn Ae Arr et A 
QNNNNMNNNNNnNNe wv 
err 
2222a 22 a=Ss Se 

= 
LIF IFO VSCOM ty Pov4 
rab ga nakk ewe 
Lb bbdbdddd eevee ete 
WO DWDWDWOMNMMNNNANNN OR = 
KQIKUIKQUIKUITUMMMMNNMMNAMNCUM 
oe 
Re -0oo 
~ SCeNTNOe Keene 
eevee epeevee eee et 6 te 8 
WWD DWDOMNMNNNANNANNA OR — 
KQUIKURKUNIURNUMMMMMANMNMNNCUM ss 
—— 
& 
Be i eyeensse 
KRRRROTLGRSSKHNASS 
FEN TNOO Se KO 
bbb dbddchrdhrhh eee 
eoo0000 co WMMMNANANAAN FT 

CUKUCUCKUCUMMMMAMNMMNANCUM 
-—— 

tg roc 

Tvrvror. OOrnaew 
@eeeeveveveeee eee eee eb 6 
DDO OMMNNNNAWN TR © 
CUCU CUCU CKUMMMMNMANNNAWNCUM 
fe el 

& 

Re eeaeaans ze 
ar iat tar lot i et at ioe Tae 
CUCURKUCU NU CUNMMMMANMAMNCUPIM 

-—— 
ee NO 
NTOCMReKw Cus 
eeeesueecuvoeeeeeceeve eee 
WDCC DWP OMA AAAANAT OD 
QIKUIKUCUICUINIMMAMAMMMMNCUMIM 
ore 
te 
eeeeessensvesss 
~ MMR OMAR Oe He Nee 
eeeespeeeceeueeeee eee 
0D 60 60 60 00 60 = AWNWAIAWINAW sF O0O ~F 
CUCU NU CUNITEMMMMANMNNN ee MIM 
Cl ae ol ol 

Ze ow ts] 
wv FNOCOK NE VK OMe 
@eeereecoeeoeouveeeee ees 
€O GO GO 6D 6D GO = AWWA 3 OOO <7 
CUCU RKUICUCKUCUMMmMMMNMNNN EK MIM 

eee 
= 

222 Re bb . 

Lal SeTetrtene te 
*teeeee ove ese @eoeeeees 
{453.60 6D 69 69 = WAWALALAWAWAAWA SP UND ST 
WOTMNICUICUMAMMAMAMNMNANE MMe 

ted el ol oe 

2222 om wv 
Ry =r TPT So. Lal 
see tbeovees @e0e00e 8 
CO CO GD GO 6D 60 = AWWA SPUN GD + F 
QUIKUINIKUKUICUMAMMAMANN EE MIM 

Ce ae ool el 
RRR REL fotki | 
Whe | Qeerrert 
eeeeeeuees @eeeees 
GO GO GD 60 6D 60 f= WALA LALALALALA MIA GoM) 
KUNI CUINUITUMMAAAAMNAN = MIM 
te oe ol eed 
22 oO 
wwe f Qeere WO 
oeeeeevpoees @eeeve ee 
OD GO 60 60 60 60 = ALAA LA LALALA MIN ~ 
CUNUNUIKUICUICUMlMAAALAW & w 


MSEXTJ 133-168 138-114 138-178 138- 


MSGEN 


— — — — ————sa ---- — -- > Sw OO se 


SEQ 0184 


136-104 137-8 


eee rrnem 


55-1244 55-128 
136-10 


55-126 
135-104 
68-234 68-30 


142-2 
62-20 
63-9 
66-19 
70-6 
71-25 


55-1228 
126-164 
140-64 
142-64 

28-34 

28-34 

28-34 

55-101 


ee SS eee 


126-104 127-8 


i aenik cual uel anti aeeeik eeeeih enti Set 


” 
55-116# 55-120 
57-84 
61-128 
02-144 102-148 102- 
2-16" 102-1 
a 
1 
1 
i) 
30 
? 


126-10 
102-12 


CSE OO 
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CROSS REFERENCE TABLE (CREF V04.00 ) 


141-124 143-8 
55-1224 55-126 


126-34 


55-93 
57-78 


55-1184 55-122 


= 
oa 
co 
a 
wv 
uw 


55-1144 55-118 
57-7# 


57-74 
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CROSS REFERENCE TABLE (CREF V04.00 ) 


SEQ 0187 


134-148 134-154 
38-204 138-224 
138-104 138-108 | 
138-348 138-52 


134-214 135-1 


134-94 
134-44 


134-84 
10# 138-114 138-164 138-174 1 
138-84 


134-44 
138- 
55-978 
55-1264 55-130 
61-28 61-284 
138-114 138-16 
142-3 
138-31 
93-7 


89-30 


138-104 
138-348 138-344 138-1374 140-1 


127-50 
138-19 


89-10 


“128 133-144 133-164 134-34 
135-31 


“114 137-158 138-84 


134-144 134-15 


122-54 
127-53 
88-13 


118-274 118-30 
127-394 127-48 
133-144 133-16 


122-5 


134-14 
29-9 


138-22 


28-344 
83-21 
55-15 
55-78 


PNTF 

PNTS 47-174 
PNTX 47-148 
POINTE 28-32 
POP 45-234 
PRINT 

PRINTB 102-14 


: 


a me a tS 


| 6 15 Ls 
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CROSS REFERENCE TABLE (CREF V04.00 ) 


PRINTF 102-12 138-52 


102-16 
PUSH 45-158 58-1 61-9 66-13 79-33 79-39 85-11 95-4 96-4 97-4 99-13 
1 03-1 103-16 §=6104-16) = 108-15) 109-74) 110-16) 111-17) 115-14) 118+13 121-18 


02-6 
READEF 127-10 127-12 127-14 127-16 
SETVEC 61-11 63-9 105-20 118-27 127-59 
svc 8-8 
44-7 139-18 141-16 
XFER 133-16# 138-118 138-174 138-1374 
XFERT 142-2 142-4 142-6 142-8 


— 


mm a ees i Ce ee 


